Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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