Hi Shawn,

Try:
'==================
Public Sub Tester()
Dim WB As Workbook
Dim WB As Workbook
Dim SH As Worksheet

Set WB = ActiveWorkbook '<<========== CHANGE
Set SH = ActiveSheet '<<========== CHANGE

Dim rng As Range

Set rng = SH.Range("A5:D15")
Dim FirstBlank As Range
Dim i As Long

For i = 1 To rng.Columns.Count
On Error Resume Next 'In case no empty cells found!
Set FirstBlank = rng.Columns(i).SpecialCells(xlBlanks)(1)
On Error GoTo 0
If Not FirstBlank Is Nothing Then
'First empty cell found
'Do something e.g.:
MsgBox FirstBlank.Address
Exit For
End If
Next i
If FirstBlank Is Nothing Then
'No empty cells found in designated range!
'Do something else, e.g.
MsgBox "No empty cells found in " _
& rng.Address(0, 0, external:=True)

End If
End Sub
'<<==================


---
Regards,
Norman



"Shawn" wrote in message
...
Let's say I have a range of cells (A5:D15). I would like a VBA code that
would start at A5 and go down from A5 to A15, then start at B5 and
progress
to B15, then C5 - C15 etc. until it finds the first empty cell.

Please help.
--
Thanks
Shawn