MS Excel / VBA help thread

[code]Sub which_are_the_blank_cells()

Dim myRange As Range, myCell As Range
Set myRange = Selection.Cells

' For...Next loop goes through all of the cells in the range and
'   tests if they are blank
'   pops up a message with the cell address
For Each myCell In myRange
    If myCell.Value = "" Then
        MsgBox myCell.Address
    End If
Next myCell

End Sub[/code]