Is it the sheet or the workbook that is hidden?

if the sheet, make sure you make the sheet visible before you save the
workbook. (in your code)

If it is the workbook, make sure you make the workbook visible before you
save it. (in your code)

--
Regards,
Tom Ogilvy

"Gerry Abbott" wrote in message
...
Hi all,
Im using some code from another application (access) to populate a range
with data, and save the sheet. However when I save it and open it, the
sheet
i've worked on is Hidden. I can unhide this manually, and all else is in
order.

I used the sheet.visible property before saving but this does not work.

Any advice welcome.


Gerry Abbott


Code:
-------------------------------------------------------------
Private Sub Command2_Click()

Dim myWb As Workbook
Dim mySh As Worksheet
Dim i As Integer

Set myWb = GetObject("My file........")
Set mySh = myWb.Worksheets("ResCare")

For i = 1 To 10
mySh.Range("A" & i).Value = i * 10
Next i

myWb.Worksheets(1).Visible = xlSheetVisible
myWb.Save

Set mySh = Nothing
Set myWb = Nothing

End Sub
-------------------------------------------------------------