Custom Header
Thank you very much. Works 100%.
--
Richard
"Jim Thomlinson" wrote:
Sub AddToHeader()
With Sheets("Sheet1")
.PageSetup.RightHeader = .Range("D1").Value
End With
End Sub
--
HTH...
Jim Thomlinson
"Richard" wrote:
Using Excel 2000.
1) I cut and paste data into an Excel spreadsheet.
2) There is a value in Cell D1.
3) I want to run a Macro, which will rearrange all the data in this
spreadsheet.
4) I know how to do all of it except:
I want the value in cell D1 to be placed in the custom header, right
side.
How can this be done?
Thanks.
--
Richard
|