that works for the order thanks didn't think of that for some reason but I am unable to use next col inside of the cl loop.
E.G.
Sub test()
Dim col As Range
Dim cl As Range

    For Each col In Range("A1:F10").Columns '
         For Each cl In col.Cells
              MsgBox cl.Address
              If cl.Row = 6 Then Next col
          Next cl
    Next col
End Sub
obviously my actual if statement will be more complex but I keep getting next without for error.