Open Workbook error

[alexrs2k]

Hi.
I need to open a Workbook that starts with "Reg" but the instruction I
created gives me an error (the wild card doesn't work):

Set wbReg = Workbooks.Open(ThisWorkbook.Path & "\Reg*.xls")

Any suggestions?

 

[Jacob Skaria]

Try

Dim strFile As String
strFile = Dir(ActiveWorkbook.Path & "\bond*.xl*", vbNormal)
Do While strFile <> ""
Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile)
Exit Do
Loop

If this post helps click Yes

 

[Jacob Skaria]

This should do...

Dim strFile As String
strFile = Dir(ActiveWorkbook.Path & "\Reg*.xl*", vbNormal)
If strFile <> "" Then
Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile)
End If

If this post helps click Yes

 

[alexrs2k]

Thank you Jacob! It works perfectly.