Activate next

[Keith.Jackson]

I have an application that uses the following code:

Application.ActiveWindow.ActivateNext
Range("A1:Z500").Select
Selection.Copy
Application.ActiveWindow.ActivatePrevious
ActiveSheet.Paste

When there is no other workbook open, the current workbook copies from itself.

How can I make the code show an error and end the procedure when there is no other open workbook?

Thanks

 

[ACommandLineKindaGuy]

Use the Application.Workbooks.Count property as in:

If Application.Workbooks.Count = 2 Then
    Application.ActiveWindow.ActivateNext 
    Range("A1:Z500").Copy 
    Application.ActiveWindow.ActivatePrevious 
    ActiveSheet.Paste 
ElseIf Application.Workbooks.Count = 1 Then
    MsgBox "...you only have 1 workbook open!",vbCritical, "Operation cancelled..."
    Exit Sub
Else
    MsgBox "...you have at least 2 workbooks open!  Your use of .ActivateNext and ActivatePrevious could be potentially catastrophic!",vbCritical, "Operation cancelled..."
    Exit Sub
End If