Stupid Input Box Error 2015

With the above code I get "Type Mismatch" on this line:

For I = 1 To Worksheets(Val(prelimorfinal)).Range("A" & Rows.Count).End(xlUp)

I tried changing the variable Dim to a couple of things but all was ... fruitless. I'm sure you picked Long for a reason

When I remove Val() it switches to subscript out of range. End xl up has a value of -4162, with rows.count having a value of 1048576. So I have an idea of what that may mean in the above line