Many thanks to all. The code recovered the data.
"OssieMac" wrote in message
...
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



__________ Information from ESET Smart Security, version of virus
signature database 4495 (20091010) __________

The message was checked by ESET Smart Security.

http://www.eset.com





__________ Information from ESET Smart Security, version of virus signature database 4496 (20091010) __________

The message was checked by ESET Smart Security.

http://www.eset.com