Inputbox to enter date
 

"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by Business
Line\Product Summary\Internal GBT Prod_Sum myValue.xls"


should be

"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by Business
Line\Product Summary\Internal GBT Prod_Sum " & myValue & ".xls"

--
Regards,
Tom Ogilvy

"Hargrove" wrote in message
...
I have the following macro set-up to open 3 files in 3 separate folders.
I would like for the end user to enter the month they want to review so I'm
trying to add an input box that will fill in the date in the 3 file names.
When I run the macro, I get a "Syntax Error" message and I'm not sure how to
fix it.

myValue = InputBox("Enter a date")
Range("A1").Value = Format(myValue, ("yyyy_mm"))

ChDir _
"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by
Business Line\Product Breakdown"
Workbooks.Open Filename:= _
"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by
Business Line\Product Breakdown\Internal GBT Prod_Breakdown myValue.xls" _
, UpdateLinks:=3
ChDir _
"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by
Business Line\Product Summary"
Workbooks.Open Filename:= _
"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by
Business Line\Product Summary\Internal GBT Prod_Sum myValue.xls"
, UpdateLinks:=3
ChDir _
"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by
Business Line\Summary Data"
Workbooks.Open Filename:= _
"I:\EXLDATA\Central Analytics Project\Gross Batchtracks by
Business Line\Summary Data\Internal GBT Summary myValue.xls" _
, UpdateLinks:=3
End Sub