Quote Originally Posted by lucas
[vba]If Range("a12:a18").EntireRow.Hidden = True Then
Range("a12:a18").EntireRow.Hidden = False
Range("a21:a32").EntireRow.Hidden = False
Else
Range("a12:a18").EntireRow.Hidden = True
Range("a21:a32").EntireRow.Hidden = True
End If
[/vba]
Excellent, Thanks! Now how do I keep the "image" from going opeque when clicked? I do not know how to use an autoshape as a button as XLD suggested.

Thanks for taking the time in helping me to resolve this.