Column number inside selection

[lezawang]

Hi
Selected 9 cells (3 rows/ 3 col) like below and wrote the code below. When I run the code and enter for example 5 as column number, to my surprise, it will enter hello inside column 5 which is outside my selection range. Why is that? Thank you very much.0

Sub myrow_selection()
    Dim xcell As Range
    Dim x As Integer
    x = InputBox("which col")
    Selection.Columns(x).Value = "hello"
    For Each xcell In Selection
        xcell.Interior.ColorIndex = WorksheetFunction.RandBetween(1, 56)
    Next xcell
End Sub

ps: sorry it wont allow me to correct the title

 

[My Aswer Is This]

So you select 3 random columns and rows

And then you tell the script to do something in column 5 it does that.

What did you expect it to do?

Where did you want Yes entered?

 

[lezawang]

Thanks for your reply. I was experimenting Selection option. I thought I would get a message saying out of range or something. But you made a good point. Thank you very much.