I have the following macro that let me select a workbook to open. I would like the macro to be amended to have a message box to ask if another file needs to be selected and if yes, then macro to start again , otherwise the macro must end
Code:
Sub Open_Workbook()
Dim A As Variant
ChDir "C:\My Documents"
A = Application.GetOpenFilename
If A = False Or IsEmpty(A) Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(A)
With .Sheets("Imported Data")
.Range("Q2", .Range("R" & Rows.Count).End(xlUp)).Copy _
Destination:=ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
.Close SaveChanges:=False
End With
Application.ScreenUpdating = True
End Sub