Convert input box to pick column into number to apply to range

Question

I would like to use the inputBox to pick a column by user and apply it to run on each row index but haven't had a luck. Its saying type mismatch. A lot of things to learn and lacking experience in coding. Thanks in advance for any inputs.

Sub FormatRange()
   
Dim i As Long, r As Range
        
Set r = Application.InputBox("Pick Column", , , , , , , 8)
        
   For i = 3 To 1500
       If r.Value <> "" Then r.Interior.Color = vbYellow
   Next i

End Sub

Answer 1

Somehow with trial and testing I manage to utilize the correct syntax for column index. It seems that using the Cells ([RowIndex], [ColumnIndex]) will be the correct way of writing the code if we want the column index, instead of trying the Range(Cell1,[Cell2]). Still a lot for me to Learn and this interest me a lot.

Sub FormatRange()
   
Dim i As Long, r As Range
        

On Error Resume Next    'Suppress error if user presses cancel
Set r = Application.InputBox("Pick Column", , , , , , , 8)

On Error GoTo 0         'Remove the On Error Resume Next condition
If rColumn Is Nothing Then Exit Sub   'Pressed cancel

   For i = 3 To 1500
        set r = cells(i,r.column)     '>>Syntax to utilize Column Index Number
        If r.Value <> "" Then r.Interior.Color = vbYellow
   Next i

End Sub