Solved: open Excel filename with only certain characters

Hi Excel VBA experts,

How do I open an Excel workbook from C:\Data\ that has the first 4 characters as "item"? For example, among all the workbooks and text files in C:\Data\ folder, there is a filename called item-groups-17082009.xls and then in next week this workbook will be replaced with "item-groups-24082009.xls". There is only one file at anytime in this folder with the first 12 characters fixed as "Item-groups-".

I can't find any related threads and answers. Hope to get some help here.
Many many thanks.

[vba]

Dim fname As String

fname = Dir("C:\Data\item*.xls", vbNormal)
If fname <> "" Then

Workbooks.Open (fname)
'...
End If
[/vba]

You are truly wonderful! Thanks again.