Hide/Unhide rows where cells are blank

[chicoheineken]

I have a command button which I would like to use to hide/unhide rows when there is a blank cell in a column.

Basically:

If cell AA3 = 1, then hide rows where column C is blank between C4:C100.
If cell AA3 = 2, then hide rows where column D is blank between C4:C100.
If cell AA3 = 3, then hide rows where column E is blank between C4:C100.
If cell AA3 = 4, then hide rows where column F is blank between C4:C100.
If cell AA3 = 5, then hide rows where column G is blank between C4:C100.
If cell AA3 = 6, then hide rows where column H is blank between C4:C100.

Note that I would like to hide the full row and not just the cell in the referenced column.

Any help is greatly appreciated guys.

 

[VoG]

Try like this

If Range("AA3").Value = 1 Then Range("C4:C100").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True