Hi Ted,

If all else fails you might be able to copy the data to a visible sheet with
one of the following examples.

Sub Macro1()
'Using the sheet given names _
(In parenthesis on project explorer)

Sheets("Sheet1").Cells.Copy _
Destination:=Sheets("Sheet2").Range("A1")

End Sub

Sub Macro2()
'Using the sheet code names _
(NOT in parenthesis on project explorer)

Sheet1.Cells.Copy _
Destination:=Sheet2.Range("A1")

End Sub


--
Regards,

OssieMac