With CopySht
.Copy After:=Sheets(ThisWorkbook.Sheets.Count)
End With
forgot the "." before Copy
Tim
--
Tim Williams
Palo Alto, CA
"Casey" wrote in
message ...
Hi,
Below is code for copying a hidden worksheet into the same Workbook. It
works fine as long as the sheet is just hidden, however when I attempted
to change the sheets property to xlSheetVeryHidden, the code fails with
the following error message:
Run-time error '1004'
Method 'copy'of object'_worksheet_failed
Here is the code.
Sub Add_New_RFI()
Dim CopySht As Worksheet
Set CopySht = Worksheets("(0)")
Application.ScreenUpdating = False
With CopySht
Copy After:=Sheets(ThisWorkbook.Sheets.Count)
End With
ActiveSheet.Visible = True
Application.ScreenUpdating = True
End Sub
Thanks in advance.
--
Casey
------------------------------------------------------------------------
Casey's Profile:
http://www.excelforum.com/member.php...fo&userid=4545
View this thread: http://www.excelforum.com/showthread...hreadid=395158