Change Selection to something like

For Each r In Range("C6,C10,C12")