セルに色を着けて右に移動するマクロ エクセル

うちのパソコン教室の受講生からそんな質問が。
選択したひとつのセルに色をつけて右に移動するのだったら、だれでもactivecell.offset(,1)を使うぐらいは思い浮かぶだろう。しかし、この人は複数のセルを選んでそこに色を着けて右の色がついていないセルに移動したいのだそうな。そこで、選んだセルの数だけ右に移動するマクロを作ってみた。
Option Explicit
Sub クリア()
　　Dim iro As Integer
　　Call セルの色(0)
End Sub
Sub ピンク()
　　Dim iro As Integer
　　Call セルの色(38)
End Sub
Sub イエロー()
　　Dim iro As Integer
　　Call セルの色(36)
End Sub
Sub グリーン()
　　Dim iro As Integer
　　Call セルの色(35)
End Sub
Sub セルの色(iro)
　　Selection.Interior.ColorIndex = iro
　　Selection.Select
　　ActiveCell.Offset(, Selection.Columns.Count).Select
End Sub