Code - trim filename

[staticbob]

Guys,

I am using this code to get an open workbook from the user. This is then stored in the string PWB. I now need to trim the "C:\" off this string ?

Thanks
Bob

"C:\Hanley Road Project Workbook.xls"

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 Workbook
Dim UGWB As Workbook
Set UGWB = ActiveWorkbook

PWB = ComboBox1.Text
If PWB = "" Then
    MsgBox ("Please select a Workbook to upgrade ! Numpty")
    Exit Sub
End If
Call upgrade_forms(PWB, UGWB)
Unload Me
End Sub

 

[Ian Mac]

Hi,

Why not use:

Me.ComboBox1.AddItem (wb.Name)

 

[staticbob]

Thanks Ian.

Bob