Selct specific cell after jumping to row using input number box

[ipbr21054]

I have this code in use.
When i run he code the Input field opens & i enter a row number,selct OK
I am then taken to that row.
The code selects all that row,

How do it have the code select the cell that is in column B of that row

Private Sub GoToRow_Click()
    Dim lnRow As Long
     lnRow = InputBox("ENTER ROW NUMBER.", "GO TO ROW NUMBER")
    Rows(lnRow & ":" & lnRow).Select
End Sub

 

[Skyybot]

Private Sub GoToRow_Click()
    Dim lnRow As Long
     lnRow = InputBox("ENTER ROW NUMBER.", "GO TO ROW NUMBER")
   Cells(lnRow,2).Select
End Sub

 

[ipbr21054]

Thanks very much