How do I end my macro when i press cancel?

[dianeslao]

Hi,
Below is my macro, basically inside Do Loop are a set of macro that opens a file, copy a sheet to another excel file.
all i want is if i dont have a file to upload to my new excel, i just want to return to my main file without being prompted by the Run Time error pop up.
please help

Sub Main()


Do
Addsheet
Compile
Copy
InsertDate
Header
Loop




End Sub

 

[sijpie]

Hi Diane,

please use code tags around your code to make it more legible (see example in red below)

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Sub Main()
    Dim Result As Boolean
    Dim x As Integer
    
    
    Do
        For x = 27 To 27 'Esc
            Result = GetAsyncKeyState(x)
            If Result Then
                Exit Sub
            End If
        Next
        Addsheet
        Compile
        Copy
        InsertDate
        Header
    Loop
End Sub

 

[sijpie]

Maybe I misunderstood. The above code will exit when you press the Escape key somewhere in the process. But now I read you want to press cancel?? Is this on a userform?