Hi Mike,

Try:

'==================
Sub Tester()
With Workbooks("Personal.xls").Sheets(1)
.Visible = Not (.Visible)
End With
End Sub

'<<==================


---
Regards,
Norman



"mikeburg" wrote in
message ...

Help! In trying to come up with a macro to toggle the Personal.xls
workbook between hide & unhide, I can't seem to get the syntax correct.
I have been working on the following but being so new, I am having a
hard time referring to the workbook Personal.xls:

Private Sub HideUnHideWorksheet()
If Workbooks("Personal.xls").Sheet1.Visable = True Then
Workbooks("Personal.xls").Sheet1.Visable = False
Else
Workbooks("Personal.xls").Sheet1.Visable = True
End If
End Sub

Any ideas would be greatly appreciated. Please help keep it simple.
mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile:
http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=470358