ExcelVBA 指定するセルの列(アルファベット)をループさせる

Sub sample()
Dim rng As Range
For Each rng In Range("A6:Z6").Columns 'A6:Z6の列を1つずつ
　rng.Select 'その列を選択
　'処理
　MsgBox rng.Address
Next
End Sub

ネタ元