Can you put a symbol into an Excel footer ?

The (c) symbol's ascii code is 169.
The easiest way I found to insert it into the header was to:
  - put the following funciton into an empty cell: =char(169)
  - use copy, paste specail/value to convert it to a real (c)

...just to finish
 - copy this char to the clipboard and paste it into a header/footer with Ctrl+V

(Probably there is an easier way to get a (c) into the clipboard, but this works just fine)

I can't make it paste.

I put "=char(169)" into a cell, got the symbol, and copied it.

Then I went to File-Page Setup-Header/Footer-Custom Footer. But Crtl+V pastes nothing. And right-clicking doesn't bring up anything.

What am I doing wrong ?  

Use

(Left)Alt+ 169

in custom footer settings (PageSetup).

suat

I tried that - but I get a different symbol. It's like a capital "L" that has fallen forward.

I can do the same thing here: "⌐"

Hi ksander,
The first time I tried the procedure described by hiq I also got a blank.
The way it works for me is:

 - put =char(169) a cell
 - copy, paste-special, value into another cell
 - now don't just copy the symbol from that cell but - with the cell highlighted - copy the symbol from the formula bar (i.e. highlight it, Ctl-C, enter (to leave the formula bar))
 - now copy to the footer and the symbol is there.

Hope it works for you too.
Regards, Manfred

Then you make something wrong in hig's solution. Hmmm, to just to make a strong focus: Are you sure doing pastespecial/values into the other cell after getting (c) by using char(169)?

Just to be sure.

suat

If you dont know about VBA then you can follow these steps.

1- Alt+F11 to open Visual Basic Editor (Tools_Macro_VisualBasic Editor)
2- Ctrl+G to open immediate window

and the code above into immediate window then enter to execute it. sheet1 is the name of the sheet what i used. Check yours to use right sheet reference name

suat

yes?

That's a great approach - I've got a lot of sheets to fix and this looks like the best way - but -

I can't make it work. I'm using this macro:

Sub Enter_Copyright()
Sheet1.PageSetup.CenterFooter = Chr(169) & " Copyright etc"
Sheet1.PageSetup.LeftFooter = "Test left"
End Sub

Any nothing shows up.  

Sheet1 is correct.
I stuck a MsgBox in it and know it's running, but nothing gets plugged in the footer.

Hi smozgur,
to confirm: I tried both hig's procedure (WITH paste special) and Your's (left Alt 169) and both do not work on my system. (Win98, Office 2000).
I have noticed in the past that there is a difference in copying from a highlighted cell and copying from the formula bar - that is why I have suggested it and it works (on my system)
 Regards, Manfred

Could you please check the footer margin ksander. Because (my OS: win98 and office: 2000) and all suggested ways (especially code suggestion of mine) work great. And may be there is a footer margin problem there. You can also check the custom footer in page setup after using code.

I'd like to help you but all working solution above doesnot work on your system. Especially code one; because IT MUST WORK!

suat

I agree - it should work. But ...

btw - I have NT Workstation 4.0 with Excel 97

I'll work with it but it will be tomorrow before I can get back to you.

At home (Excel 97 SR-2 on Win98 SE) Alt+169 results in the "Registered" mark (R). To get a copyright symbol I have to press Alt+0169. Make sure you use the Numpad for the numbers, especially if you have a notebook.

Will try it tomorrow on a NT 4 (SP6) PC.

It works - with a little tweaking. This works:

With ActiveSheet.PageSetup
  .LeftFooter = Chr(169) & "Copyright test.."
End With

I don't know why yours didn't. It should have.

Thanks to you others too. I know the cut & paste method would work, except doing it with as many sheets as I have would take a lot more time. (If you don't count the time it took to come up with the final solution)

ksander,

Mine didnot work because of the reference name of the sheet. You can see the name of the sheet, which you should use with my code, by ActiveSheet.Name.

Thanks for grade.
suat