copy active cell value,find the pasted value in different worksheet
Tom,
Sub TomFind()
Dim myVal As Variant
On Error GoTo NotFound
myVal = ActiveCell.Value
Worksheets(1).Activate
Cells.Find(myVal).EntireRow.Select
Exit Sub
NotFound:
MsgBox "That value wasn't found on Worksheet 1"
End Sub
HTH,
Bernie
MS Excel MVP
wrote in message
oups.com...
hi,
I am trying to put together a simple macro to do the following job - so
far I haven't succeeded:
copy active cell value,go to the first worksheet in my spreadsheet,
find the pasted value in there and select the row where it has found
the value.
can anyone help?
Thx.
Tom
|