Updated the vba code and still it gives me a subscript out of range error [duplicate]

Answer 1

You should definitely have Set on the line when you assign worksheets:

Set sh1 = Worksheets(filenum(lngPosition))