Private Sub UserForm_Initialize()
Dim wb As Workbook
For Each wb In Application.Workbooks
Me.ComboBox1.AddItem (wb.FullName)
Next wb
End Sub
Private Sub CommandButton1_Click()
Dim PWB As String
PWB = ComboBox1.Text
If PWB = "" Then
MsgBox ("Please select a Workbook to upgrade ! Numpty")
Exit Sub
End If
'Call upgrade_mods(PWB)
MsgBox (PWB)
End Sub