Column Specific Search

[kod2th3e]

I am looking to search for a string within a certain column only and activate that cell. If I have the table below, I want to use an input box to acquire a string from the user and search only column B and activate the cell. If the user enters a string that is not found in column B I'd like a message box to pop up saying that that string wasn't found.

Col A	Col B	Col C
123	951	abc
abc	456	def
951	123	ghi
def	789	123

<tbody>
</tbody>

So far I have the following code:

sub userfind()
dim struserinput as string
on error goto skipmessage
struserinput = InputBox("Please enter the string you would like to find:", "String?") 'gets the user's input to search for

Cells.Find(What:=struserinput, After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlWhole, SearchOrder:=xlByColumns, Search Direction:=xlNext, _
         MatchCase:=True, SearchFormat:=False).activate

skipmessage:
MsgBox "The string you entered is not located within column B", vbExclamation, "Error.."
end sub

Let's say the user types 123 in the input box. When this happens cell A1 gets activated, I want cell B3 to be activated instead. If the user inputted "abc" in the input box I'd like it to kick out the message box located under the skipmessage line. Thanks in advance for your help.

 

[kod2th3e]

Remove the optional After:=ActiveCell argument and you don't have to already have the Activecell in column B.

Works beautifully, thanks.