Syntax of hide/unhide personal.xls toggle
 

Help! In trying to come up with a macro to toggle the Personal.xl
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
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.
mikebur

--
mikebur
-----------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...fo&userid=2458
View this thread: http://www.excelforum.com/showthread.php?threadid=47035

Syntax of hide/unhide personal.xls toggle
 

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

Syntax of hide/unhide personal.xls toggle
 

Did you try recording a macro when you unhid personal.xls?

(It's the simplest I could do.)

mikeburg wrote:

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

--

Dave Peterson