Hi,
Following code is okey.
Following code is not okey.
Sub Macro1() Sheets("Sheet2").Select With ActiveSheet.PageSetup .PrintArea = "A1:A5" .LeftHeader = "" .CenterHeader = "EXAMPLE HEADER" .RightHeader = "" End With End Sub
I want to take CenterHeader Text from Sheet2 to Sheet1.Range("A1") cell...Sub Macro2() Sheets("Sheet1").Select Range("A1") = Sheets("Sheet2").CenterHeader.Text End Sub
Regards
Sub DontForgetThese() If Your thread includes any code Then Please use code tags... If Your thread has been solved Then Please mark as solved... If Anybody has helped to you Then Please add reputation... End Sub
Try:
Sub Macro2() Sheets("Sheet1").Range("A1") = Sheets("Sheet2").PageSetup.CenterHeader.Text End Sub
Regards, TMS
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
CenterHeader is not Object, it is String:
with no .TextSheets("Sheet2").PageSetup.CenterHeader
- Please remember to mark threads Solved with Thread Tools link at top of page.
- Please use code tags when posting code: [code]Place your code here[/code]
- Please read Forum Rules
Thank you Izandol. Solved.
Last edited by HerryMarkowitz; 12-27-2013 at 07:09 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
HerryMarkowitz 
Register To Reply
Bookmarks