I have the following code that enables a user to select a workbook in a particular folder
I would like this amended so that the user can select which workbooks he/she wants to select
Your assistance in this regard is most appreciated
I would like this amended so that the user can select which workbooks he/she wants to select
Code:
Sub Open_bank()
ChDir "C:\bank"
Dim nb As Workbook, ts As Worksheet, A As Variant
Set ts = ActiveSheet
A = Application.GetOpenFilename
If A = False Or IsEmpty(A) Then Exit Sub
Application.ScreenUpdating = False
Set nb = Workbooks.Open(A)
ThisWorkbook.Activate
End Sub
Your assistance in this regard is most appreciated