Code to put contents of A1 and B1 in header
It appears that in Excel XP, the ".LeftHeader " line is just skipped (with
no error for me either) when it encounters a run time error (
..Range("A1:B1").Text ). Don't know about earlier version though.
Sub CellInHeader()
With ActiveSheet.PageSetup
.LeftHeader = [A1] & Space(1) & [B1]
'...etc
End With
End Sub
--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =
"Tom Ogilvy" wrote in message
...
.Range("A1:B2").Text gives an error
.Range("A1").Text & " " & .Range("B1").Text
maybe what you meant.
--
Regards,
Tom Ogilvy
Gord Dibben wrote in message
...
Sandy
Sub CellInHeader()
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1:B1").Text
End With
End Sub
You could also place this code as a BeforePrint in the Thisworkbook
module.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1:B1").Text
End With
End Sub
Gord Dibben Excel MVP XL2002
On Sun, 17 Aug 2003 13:11:12 -0700, "Sandy"
wrote:
I would like to put the contents of A1 and B1 into the
header. A1 and B1 are not names of columns.
Is there a way to do this? I came up with zip when
searching Help.
Sandy
|