I'd format the date and add it into the file path, something like this:

Dim strDate as String, strPath as String

strDate = Format(Range("C1").Value, "MMddyy")
strPath = "'C:\Documents and Settings\PC\My Documents\Green
Books\[GB_*" & strDate & "*-Q6150.xls]DailyWS'!$D$5"