Sub IsActiveCellEmpty() Dim sFunctionName As String, sCellReference As String sFunctionName = "ISBLANK" sCellReference = ActiveCell.Address MsgBox Evaluate(sFunctionName & "(" & sCellReference & ")") End Sub