S
Simon Lloyd
Hi all,
I'm trying to copy a sheet as a picture and paste it in to a new shee
(all works well here!) but i also want to rename the sheet using th
text from cell B1 and cell B3 from the source sheet so it can b
identified easily later, here is the code i have but of course doesn
work.......if the text in B1 was Bob and the text in B3 was There the
rename the sheet "Bob There".
is this possible?
The line in blue doesnt work!
Regards,
Simon
Sub cardPicture()
Range("A1:I27").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Sheets("Score Card").Select
Sheets.Add
ActiveSheet.Paste
ActiveWindow.DisplayGridlines = False
ActiveSheet.Select
ActiveSheet.Name = (Sheets("Score Card") Range("B1").Text An
Range("B3").Text)
End Su
I'm trying to copy a sheet as a picture and paste it in to a new shee
(all works well here!) but i also want to rename the sheet using th
text from cell B1 and cell B3 from the source sheet so it can b
identified easily later, here is the code i have but of course doesn
work.......if the text in B1 was Bob and the text in B3 was There the
rename the sheet "Bob There".
is this possible?
The line in blue doesnt work!
Regards,
Simon
Sub cardPicture()
Range("A1:I27").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Sheets("Score Card").Select
Sheets.Add
ActiveSheet.Paste
ActiveWindow.DisplayGridlines = False
ActiveSheet.Select
ActiveSheet.Name = (Sheets("Score Card") Range("B1").Text An
Range("B3").Text)
End Su