VBA using an image as a toggle switch

[DonH]

Hi hope you can help.

I know next to nothing about VBA and have adapted code below from stuff I
had.

I simply want to show hide portions of my page to cut down on screen
clutter/information overload.

I have assigned my macro to a screen image but was wondering if I could have
a hide and unhide under the same button.

Any help would be much appreciated



Call Unl
Application.ScreenUpdating = False
Rows("25:75").EntireRow.Hidden = True
Rows("98:148").EntireRow.Hidden = True
Rows("171:221").EntireRow.Hidden = True
Rows("244:294").EntireRow.Hidden = True
Rows("317:367").EntireRow.Hidden = True
Range("K4").Select
Calculate
Call Pro


DonH

 

[Bob Phillips]

Call Unl
Application.ScreenUpdating = False
Rows("25:75").EntireRow.Hidden = Not Rows("25:75").EntireRow.Hidden
Rows("98:148").EntireRow.Hidden = Not Rows("98:148").EntireRow.Hidden
Rows("244:294").EntireRow.Hidden = Not Rows("244:294").EntireRow.Hidden
Rows("317:367").EntireRow.Hidden = Not Rows("317:367").EntireRow.Hidden
Range("K4").Select
Calculate
Call Pro


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[DonH]

Thanks Bob That worked fantastically. I really am going to have to
learn VBA

Many thanks

DonH

 

[Dana DeLouis]

Just an additional idea...

With Range("25:75,98:148,244:294,317:367").EntireRow
.Hidden = Not .Hidden
End With