I tried to Dim j as String and a Range. the 10 is supposed to be column J
and 22 is Column V
The error says Type Mismatch and Highlights the j you see below after the
"For"
For j = oMarketSheet.Columns("10") To oMarketSheet.Columns("22") Step 2
Set oMarketSheet = oWorkbook.Worksheets(sMarketSheet)
Any ideas, if you need to see more code, I can.