Sub GetFolder()
Dim wbDiamond As Workbook
Dim wbIndia As Workbook
Dim wbScoreFinal As Workbook
Dim wbScoreRaw As Workbook
Dim wbStatic As Workbook
Dim i As Long
Dim vTitles As Variant
Dim strFiles(0 To 4) As String
vTitles = Split("Diamond Mapping file," & _
"INDIA Mapping file," & _
"Score Mapping file," & _
"Score TB Final report (Previous Month) file," & _
"Score TB Raw file from daily listing file", ",")
For i = 0 To 4
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select " & vTitles(i)
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
strFiles(i) = .SelectedItems(1)
End With
Next
Set wbDiamond = Workbooks.Open(strFiles(0))
Set wbIndia = Workbooks.Open(strFiles(1))
Set wbScoreFinal = Workbooks.Open(strFiles(2))
Set wbScoreRaw = Workbooks.Open(strFiles(3))
Set wbStatic = Workbooks.Open(strFiles(4))
'''''''''''''''''''''''''''''''''''''''''
'Example code to select different workbooks
wbScoreRaw.Activate
MsgBox "Score TB Raw workbook selected"
wbScoreFinal.Activate
MsgBox "Score TB Final workbook selected"
'''''''''''''''''''''''''''''''''''''''''
'
'
'
'Your code goes here
Bookmarks