Excel VisualBasic Script

Sub activeCell()
    If ActiveCell Is Nothing Then End
End Sub