Using the FIND below, what do I need to get the row and cell where I find the
match in column B?

With Sheets("Sheet1").Range("B:B")
Set Rng = .Find(What:="I-100421224950", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

It's OK, I got it! Just needed to continue with

If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox ActiveCell.Row & "." & ActiveCell.Column
End

"GEdwards" wrote:

Using the FIND below, what do I need to get the row and cell where I find the
match in column B?

With Sheets("Sheet1").Range("B:B")
Set Rng = .Find(What:="I-100421224950", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

Try this::

Sub FindaBunchOnumbers()
Columns("B:B").Find(What:="I-100421224950", _
After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

MsgBox ActiveCell.Address
End Sub

Modified from the macro recorder.

HTH
Regards,
Howard

"GEdwards" wrote in message
...
Using the FIND below, what do I need to get the row and cell where I find
the
match in column B?

With Sheets("Sheet1").Range("B:B")
Set Rng = .Find(What:="I-100421224950", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

You don't have to go to the cell (unless you want to); you could have
continued this way instead...

If Not Rng Is Nothing Then
MsgBox Rng.Row & "." & Rng.Column
End If

--
Rick (MVP - Excel)



"GEdwards" wrote in message
...
It's OK, I got it! Just needed to continue with

If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox ActiveCell.Row & "." & ActiveCell.Column
End

"GEdwards" wrote:

Using the FIND below, what do I need to get the row and cell where I find
the
match in column B?

With Sheets("Sheet1").Range("B:B")
Set Rng = .Find(What:="I-100421224950", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)