Macro Help - Select Range based on User Input

[SSUNBRN]

Hi,

I have a data set that contains several columns of info. Within this data, unique reference numbers are stored in column B. I'm interesting in obtaining a macro that would pop up a window and allow the user to enter a reference number (e.g., 293). The macro would then select the A-I columns of the row with that reference number (e.g., A1:I1 - if 293 was in B1). Can anyone help?

Thanks!

 

[yankee428]

Welcome to the Board Sunbrn,

How about this:

Sub selectcol()
On Error Resume Next
result = InputBox("What ID would you like to select?", "ID Input")
Set c = ActiveSheet.Range("B:B").Find(result, LookIn:=xlValues)
If c Is Nothing Then
    MsgBox "The ID you entered in not on the list"
    Exit Sub
End If
Range(Cells(c.Row, 1), Cells(c.Row, 9)).Select
End Sub

 

[SSUNBRN]

Yankee --

The code you wrote produces exactly the results that I was looking for. Thank you very much for your time and expertise.