Urgent - VBA procedure

[Guest]

=OFFSET(INDIRECT(ADDRESS(MATCH(908,$A:$A,0),1,2,),TRUE),1,16)

I need help to design a VBA procedure, based on the formula above, that
would allow me to input with an Inputbox the several customer numbers (in
this case 908) to be added in row T8

 

[Bob Phillips]

Jeff,

Try this

Dim iMatch As Long
On Error Resume Next
iMatch = Application.Match(908, Range("A:A"), 0)
On Error GoTo 0
If iMatch > 0 Then
MsgBox ActiveCell.Offset(iMatch - ActiveCell.Row + 1, 16 -
ActiveCell.Column + 1)
End If

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)