Toggle Hide/Unhide Macro with Button

[ttbuson]

I have the following macro for hiding/unhiding a group of rows based on whether or not they contain empty text strings. I was hoping to insert a button that would hide or unhide the rows each time you hit it. However, I haven't done much work with buttons and assigning controls. Any help would be greatly appreciated.

Thanks!

Sub HideRows()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<o:p> </o:p>
Dim cell As Range<o:p></o:p>
<o:p> </o:p>
For Each cell In ActiveSheet.Range("B114:B143 ")<o:p></o:p>
If cell.Value = "" Then<o:p></o:p>
cell.EntireRow.Hidden = True<o:p></o:p>
Else: cell.EntireRow.Hidden = False<o:p></o:p>
End If<o:p></o:p>
Next cell<o:p></o:p>
<o:p> </o:p>
End Sub

 

[ttbuson]

Bump. Anyone have any experience with assigning macros to buttons?

 

[ttbuson]

Figured it out. Assigning the following macro to the button works:

 [/COLOR]
[COLOR=#1f497d][COLOR=black]Sub HideRows()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d]<o:p>[COLOR=black] [/COLOR]</o:p>[/COLOR]
[COLOR=#1f497d][COLOR=black]Dim cell As Range<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d]<o:p>[COLOR=black] [/COLOR]</o:p>[/COLOR]
[COLOR=#1f497d][COLOR=black]For Each cell In ThisWorkbook.Sheets("GraphData").Range("B114:B143")<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d][COLOR=black]    If cell.Value = "" Then<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d][COLOR=black]        cell.EntireRow.Hidden = Not cell.EntireRow.Hidden<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d][COLOR=black]        Else: cell.EntireRow.Hidden = False<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d][COLOR=black]    End If<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d][COLOR=black]Next cell<o:p></o:p>[/COLOR][/COLOR]
[COLOR=#1f497d]<o:p>[COLOR=black] [/COLOR]</o:p>[/COLOR]
[COLOR=#1f497d][COLOR=black]End Sub[/COLOR][/COLOR]
[COLOR=black]