On the first page of my workbook I have command buttons that activate a cell on a specified sheet in the book. I would like to change the code on the buttons so they activate a sheet then look for a word in column b and activate that cell when found. Any help would be appreciated.

This could be a easy way to do it.

Sub Find_Word()     Dim InWord As String     'Word to search          InWord = InputBox("Enter the word your searching here", "Search")     Cells.Find(What:=InWord, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate      End Sub

____________________________
A Stick give a wise man something to think about... and a fool, something to put in is mouth.