hide/unhide row macro

I'm new to writing macros and need a little help. I'm trying to write a macro that will hide/unhide different rows within a worksheet. For example, I want to check a box and be able to hide rows 8, 10 and 12, but leave rows 9 and 11 alone. Thanks in advance for your help!

Put a checkbox from the forms toolbar (not the control toolbox toolbar) on a
worksheet.

Assign it this macro:

Option Explicit
Sub testme()

Dim myRng As Range
Dim myCBX As CheckBox

Set myCBX = ActiveSheet.CheckBoxes(Application.Caller)

Set myRng = ActiveSheet.Range("a8,a10,a12")

' If myCBX.Value = xlOn Then
' myRng.EntireRow.Hidden = True
' Else
' myRng.EntireRow.Hidden = False
' End If

myRng.EntireRow.Hidden = myCBX.Value

End Sub

The commented lines may be easier to understand, but they're equivalent to the
last line.

Checkman wrote:
>
> I'm new to writing macros and need a little help. I'm trying to write a
> macro that will hide/unhide different rows within a worksheet. For
> example, I want to check a box and be able to hide rows 8, 10 and 12,
> but leave rows 9 and 11 alone. Thanks in advance for your help!
>
> --
> Checkman
> ------------------------------------------------------------------------
> Checkman's Profile: http://www.excelforum.com/member.php...o&userid=10620
> View this thread: http://www.excelforum.com/showthread...hreadid=503463

--

Dave Peterson

try
Sub ToggleHideColumns()

'Range("a1,c1,g1").EntireColumn.Hidden = Not
Range("a1,c1,g1").EntireColumn.Hidden
Range("a2,a4,a8").EntireRow.Hidden = Not Range("a2,a4,a8").EntireRow.Hidden
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"Checkman" <[email protected]> wrote in
message news:[email protected]...
>
> I'm new to writing macros and need a little help. I'm trying to write a
> macro that will hide/unhide different rows within a worksheet. For
> example, I want to check a box and be able to hide rows 8, 10 and 12,
> but leave rows 9 and 11 alone. Thanks in advance for your help!
>
>
> --
> Checkman
> ------------------------------------------------------------------------
> Checkman's Profile:
> http://www.excelforum.com/member.php...o&userid=10620
> View this thread: http://www.excelforum.com/showthread...hreadid=503463
>

Thanks Dave and Don!

glad to help. you may have to correct the word wrap if you want to use the
column one

--
Don Guillett
SalesAid Software
[email protected]
"Checkman" <[email protected]> wrote in
message news:[email protected]...
>
> Thanks Dave and Don!
>
>
> --
> Checkman
> ------------------------------------------------------------------------
> Checkman's Profile:
> http://www.excelforum.com/member.php...o&userid=10620
> View this thread: http://www.excelforum.com/showthread...hreadid=503463
>