Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Working with the ActiveWorkbook Object

Sub active()     If ActiveWorkbook Is Nothing Then         MsgBox "open a workbook and click in it before running this macro." _             & vbCr & vbCr & "This macro will now end.", _             vbOKOnly + vbExclamation, "No Workbook Is Open"         End     End If End Sub