Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Is active cell empty

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