Dim rng As Range
Set rng = Sheets("Files").Range("A1:A61")
For Each cl In rng
Workbooks.Open Filename:=cl.Value
For i = Sheets.Count To 1 Step -1
If Sheets(i).Visible = True Then
Sheets(i).Select
Exit Sub
End If
Next i
Range("U1").Select
ActiveCell.FormulaR1C1 = _
"=MID(CELL(""filename"",RC[-20]),FIND(""]"",CELL(""filename"",RC[-20]))+1,256)"
ActiveWorkbook.Save
ActiveWorkbook.Close
Next cl