swap for input box

[kenpcli]

This what I have, but I need the person running to be able to input the newest date in place of the highlighted portion:

LastRow = Range("B" & Rows.Count).End(xlUp).Row
Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row).Formula = "=IF(ISNA(VLOOKUP(C2,'12-31 TO 01-06'!$C$1:$F$500,4,FALSE)),""NONE"",VLOOKUP(C2,'01-07 TO 01-13'!$C$1:$F$500,4,FALSE))"
Range("F2").AutoFill Destination:=Range("F2:F" & LastRow)
For Q = 1 To Cells(Rows.Count, "F").End(xlUp).Row
If Cells(Q, "F").Value = "NONE" Then Cells(Q, "F").Interior.ColorIndex = 15
Next

 

[Rick Rothstein]

This what I have, but I need the person running to be able to input the newest date in place of the highlighted portion:

LastRow = Range("B" & Rows.Count).End(xlUp).Row
Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row).Formula = "=IF(ISNA(VLOOKUP(C2,'12-31 TO 01-06'!$C$1:$F$500,4,FALSE)),""NONE"",VLOOKUP(C2,'01-07 TO 01-13'!$C$1:$F$500,4,FALSE))"
Range("F2").AutoFill Destination:=Range("F2:F" & LastRow)
For Q = 1 To Cells(Rows.Count, "F").End(xlUp).Row
If Cells(Q, "F").Value = "NONE" Then Cells(Q, "F").Interior.ColorIndex = 15
Next

What do you mean by "newest date"? The highlighted part of your code has two dates separated by the word "TO" and a couple of spaces.

 

[kenpcli]

What do you mean by "newest date"? The highlighted part of your code has two dates separated by the word "TO" and a couple of spaces.

The first date is the first worksheet and the one highlighted in red is the newest worksheet inserted. Instead of having to change the date to the newest worksheet I wanted the user to be able to just input the date and it automatically update the macro.

 

[kenpcli]

so instead of someone having to change it 1/1/18 TO 1/7/18 they could just use the input box.