Help On VBA code to assigns the date by input box entering into formula

Dear experts

I have VBA code setting to run into multiple workbooks which are closed workbooks stored in path

I want reassign the task by every month wise so i want change the date in formula manually, to avoid those thing when run the code pop-up input box has to ask for which month file ? once enter the date mm/dd/yyyy then vba start to run into all workbooks.


Here I want change on code by pop-up input box:Once enter the date 10/31/2015 it has to apply in formula in Y2
Range("Y2").Formula = "=IF(OR(RC[-1]>=DATEVALUE(""10/31/2015""),RC[-1]=0),RC[-18],""999"")"
Range("Y2").AutoFill Destination:=Range("Y2:Y" & lastRow)
Instead of this I applied this code
Dim damn As Variant
damn = Application.InputBox("Enter the low range of comment numbers.", "Low range number", Type:=1)
Range("Y2").FormulaArray = "=IF(OR(RC[-1]>=DATEVALUE("" & Chr(34) & damn & ""),RC[-1]=0),RC[-18],""999"")"
Range("Y2").AutoFill Destination:=Range("Y2:Y" & lastRow)

it doesnt work for me.
find the attachment along with code module1