cell value in header or footer

G

Gord Dibben

Sub CellInFooter22()
With ActiveSheet.PageSetup
.LeftFooter = "&""Algerian,Regular""&16" & Range("A1").Value
End With
End Sub


Gord Dibben MS Excel MVP
 
M

Ms_M_o_n_i_c_a

huh? when i copy & pasted, i got exactly what that.

im not that advanced at Excel yet. please make the instructions simplier
please
 
G

Gord Dibben

What I posted was a macro, not a formula.

If you're not familiar with VBA and macros, see David McRitchie's site for
more on "getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

or Ron de De Bruin's site on where to store macros.

http://www.rondebruin.nl/code.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run or edit the macro by going to Tool>Macro>Macros.

You can also assign this macro to a button or a shortcut key combo.


Gord
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top