Finding a column with a specific title

Hello Everyone,

My question today is if its possible to have visual basic find the correct heading to a column and make the cell beneath it the active cell.

Lets say I have columns labeled 1-5 and different serial numbers to put beneath each. On my userform, I would like to make it so when someone enters 1-5 if will put the serial number underneath the correct column. Is it possible to do this?

Thank you for the reply. I edited your code to suit mine but it will not find the column i am looking for. Here is the actual code I have so far

Private Sub Submit_Click()
    ActiveWorkbook.Sheets("sheet1").Activate
    If (Me.txtRun.Text = "") Then
        MsgBox "Enter the Run Number"
        Exit Sub
    End If
    Dim txtRun As Range
    Set txtRun = ActiveSheet.Range("$B$22:$K$22").Find(Me.txtRun.Text)
    If (txtRun Is Nothing) Then
        MsgBox "Column not found"
        Exit Sub
    End If
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = txtSerial.Value
    ActiveCell.Offset(0, 1) = txtPallet.Value
    If chkProblem = True Then
    Range("N22").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = txtRun.Value
    ActiveCell.Offset(0, 1) = txtSerial.Value
    ActiveCell.Offset(0, 4) = txtPallet.Value
    End If
End Sub

Im not exactly sure what you mean. Are you saying when I see

ActiveCell.Offset(1, 0).Select

I should use

txtRun.Cells(1,1).Select

Im somewhat new to this.

Ahhhh, It works!!!!!! Thank you very much.

Just so I understand it better for future references when you wrote

Dim txtRun As Range

You were making a new variable name called txtRun correct?