Thank you Jacob! It works perfectly.
--
Alex
*Remember to click "yes" if this post helped you. Thank you!



"Jacob Skaria" wrote:

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
---------------
Jacob Skaria


"Jacob Skaria" wrote:

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


"alexrs2k" wrote:

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?
--
Alex
*Remember to click "yes" if this post helped you. Thank you!