You may find this to be a bit easier. If hidden, will unhide. If not, will
hide

Sub togglehide()
Rows("2:10").Hidden = Not Rows("2:10").Hidden
End Sub

--
Don Guillett
SalesAid Software

" Forms / Send to .....VBA or Macro?"
wrote in message
...
I am new to vba and excel and would like to use a double click to hide or
unhide rows if the color is white. Question: once I get it working (see
below) will the hidden rows automatically be excluded from further
processing? I believe the vba for this is correctly sitting in the excel
objects area for the active sheet.

The syntax of most things in vba still baffle me. D1 is the click-to-hide
cell. D2 is to unhide.

Dim cell As Range

Private Hiderows()
SheetName_Beforedoubleclick (D1)
For Each cell In Range("S5:S300")
cell.EntireRow.Hidden = cell.Interior.ColorValue = xlNone
Next cell
End Sub

Private Showrows()
SheetName_Beforedoubleclick (D2)
cell.EntireRow.Hidden = False
End Sub