Sub TestIsEmpty() If WorksheetFunction.CountA(Range("A38:P38")) = 0 Then MsgBox "Empty" Else MsgBox "Not Empty" End If End Sub