Staggered/Split For Loops

No.

Sub ken()
  Dim c As Range
  For Each c In Range("A1:A3, A5:A10")
    MsgBox c.Row
  Next c
End Sub