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