No need for a button

You could put the following code in the Worksheet_Selection Change
event. It will hide rows 2 to 5 whenever a cell in column D is
selected. Similarly it will unhide the rows if column E is selected

If you really want a button, simply use the same code in an attached
macro.

HTH

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [D:D]) Is Nothing Then
[2:5].Rows.Hidden = True
End If

If Not Intersect(Target, [E:E]) Is Nothing Then
[2:5].Rows.Hidden = False
End If

End Sub



caii wrote:
can I place a button any where in the worksheet to collapse/expand rows? I
would like to place a button +/- on column D to expand/collapse row 2 to 5
(instead of using the grouping tool where you find the button at the left
most corner). Thank you for any assistance.

A B C D
row 1
row 2
row 3
row 4
row 5
--
caii
Excel 2003