Private Sub Commandbutton1_Click()
Workbooks.Open "path to Beta"
With ActiveWorkBook.worksheets(1).Columns(1)
Set C = .Find(What:=ThisWorkBook.worksheets(1).Range("A1") )
If Not c is Nothing
c.offset(0,2).activate
end if
end with
end sub

--
Regards,
Tom Ogilvy


"LiSa" wrote in message
...
Sorry I pressed tab trying to indent code which sent it by
mistake.

Here is all the code.

Private Sub Commandbutton1_Click()
Workbooks.Open "path to Beta"
With ActiveWorkBook.Sheet1.Columns(1)
Set C = .Find(What:=ThisWorkBook.Sheet1.Range("A1"))
If Not c is Nothing
c.address.offset(0,2).activate
end if
end with
end sub

-----Original Message-----
Hello

I have two workbooks called Alpha and Beta, which both
have one worksheet (Sheet1).
Alpha has a string in range A1 and a command button on it.
When the user clicks the button on Alpha, I want Excel to
open Beta and do a 'Find' in the Column A of Beta, for
the
string that is in range A1 of Alpha.

If the string is found on Beta, then I want to
activate/select the cell two columns along on the same
row, offset(0,2), else if it doesn't find it then do
nothing.

This is my code so far which doesn't work.

Private Sub Commandbutton1_Click()
Workbooks.Open "path to Beta"
With ActiveWorkBook.Sheet1.Columns(1)
Set C = .Find(What:=ThisWorkBook.Sheet1.Range("A1"))
If Not c is Nothing


.