Test for empty cell
Sub IsActiveCellEmpty() Dim stFunctionName As String Dim stCellReference As String stFunctionName = "ISBLANK" stCellReference = ActiveCell.Address MsgBox Evaluate(stFunctionName & "(" & stCellReference & ")") End Sub