code to copy hidden sheet

[smokenack]

This portion of code produces the following error if the sheet is hidden

run time error 1004 Copy method of worksheet class failed

ThisWorkbook.Sheets(1).Copy

I'd much prefer to keep the sheet hidden and still execute the code. The error still results if I include the sheet name

ThisWorkbook.Sheets("BASE").Copy

Any ideas?

thanks for looking

Nick

 

[Datsmart]

Try this:

Sub foo()
    ThisWorkbook.Sheets("BASE").Visible = True
    ThisWorkbook.Sheets("BASE").Copy
    ThisWorkbook.Sheets("BASE").Visible = False
End Sub

 

[smokenack]

Thanks John, seems to work fine.

Nick