Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Is active cell empty
Sub IsActiveCellEmpty()
         Dim sFunctionName As String, sCellReference As String
         sFunctionName = "ISBLANK"
         sCellReference = ActiveCell.Address
         MsgBox Evaluate(sFunctionName & "(" & sCellReference & ")")
     End Sub