There is no sheet selection portion.

But I can see one potential problem.

By using [B65536] without a worksheet reference then VBA will be looking at column B on what it considers the active sheet.
[vba]
For Each Cel In Sheets("ABC Access Format").Range("B1:L" & Sheets("ABC Access Format").Range("B" & Rows.Count).End(xlUp).Row) [/vba]