Unhiding a sheet
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
-------------------------------------------------------------
|