Hi Everyone -
I have a Workbook with several Hidden Worksheets. All of the Worksheets are password protected.
Problem - I want to copy data from a visible worksheet to a hidden worksheet. I am using the following code:
pwd = "Test"
Sheets("Summary").Select ' << Visible Worksheet
Range("E8:AS454").Select
Selection.Copy
Sh = "Summary Export" ' << Hidden Worksheet
Sheets(Sh).Unprotect Password:=pwd
Sheets(Sh).Visible = xlSheetVisible ' <<<<< BLOWS UP HERE
Sheets("Summary Export").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
I get Run-time Error 1004 - Unable to set the Visible Proerty of the Worksheet
Any help is greatly appreciated
Jim
Bookmarks