Select Intersection Of Column And Row

First although it returns the correct column, it always returns Row 1. Beyond me! Secondly I could really use some help in a line or two of code to select the cell at the intersection of the column and row.


Sub test()

Dim name As String
Dim number As String
Dim col As Integer
Dim row As Integer
Dim RowNumber As Integer
Dim ColNumber As Integer
Dim rng As Range

ActiveWorkbook.Sheets("Sheet1").Activate

name = InputBox("type a name from Column A")...........