Greetings:
Required to copy text and logos from what is now a password protected,
hidden sheet called "HEADINGS".
Paste onto NON hidden sheet called "CoverPage".

The follow code shown below worked great during my set-ups and trials, until
I hid the sheet.
I found out one can't select or actually activate a hidden sheet.
When I did use .activate (regarding hidden sheet), I could did the text, but
not the logos.
Is there a way to accomplish this without un-hiding the sheet?

Sub CdnContract()

Application.ScreenUpdating = False
Application.EnableEvents = False ' I don't know why this is in here

Sheets("CoverPage").Select
Call WSh_Unprotect

Sheets("HEADINGS").Activate
Call WSh_Unprotect

' Copy and Paste Canadian Heading and Logos
Worksheets("HEADINGS").Range("HEAD_CDN").Copy
ActiveSheet.Paste Destination:=Worksheets("Coverpage").Range("B2")

Application.EnableEvents = True
Application.ScreenUpdating = True

Call WSh_Protect

Sheets("HEADINGS").Activate
Call WSh_Protect

Sheets("CoverPage").Select

End Sub

Hi

Not a direct answer to your question but would leaving the logos on the
"CoverPage" but hidden suit your purpose just as well? A command such as

Shapes("Picture 1").Visible = msoTrue

would 'dress' the page as you require; at least as a temporary workaround.

"BEEJAY" wrote:

Greetings:
Required to copy text and logos from what is now a password protected,
hidden sheet called "HEADINGS".
Paste onto NON hidden sheet called "CoverPage".

The follow code shown below worked great during my set-ups and trials, until
I hid the sheet.
I found out one can't select or actually activate a hidden sheet.
When I did use .activate (regarding hidden sheet), I could did the text, but
not the logos.
Is there a way to accomplish this without un-hiding the sheet?

Sub CdnContract()

Application.ScreenUpdating = False
Application.EnableEvents = False ' I don't know why this is in here

Sheets("CoverPage").Select
Call WSh_Unprotect

Sheets("HEADINGS").Activate
Call WSh_Unprotect

' Copy and Paste Canadian Heading and Logos
Worksheets("HEADINGS").Range("HEAD_CDN").Copy
ActiveSheet.Paste Destination:=Worksheets("Coverpage").Range("B2")

Application.EnableEvents = True
Application.ScreenUpdating = True

Call WSh_Protect

Sheets("HEADINGS").Activate
Call WSh_Protect

Sheets("CoverPage").Select

End Sub