Find a cell with a special value and activate it

[Mirja]

Hello!

I'd like to do the following:

Get a date from a different workbook (which is given in
cell A9) and then find the date in my workbook in Row "1"
and activate the cell.

Can anybody help? Thank you!

Mirja

 

[Bob Phillips]

Dim oCell As Range

Set oCell = Rows(1).Find(Range("A9").Value)
If Not oCell Is Nothing Then
oCell.Select
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Mirja]

Many thanks!!

Mirja

-----Original Message-----

Dim oCell As Range

Set oCell = Rows(1).Find(Range("A9").Value)
If Not oCell Is Nothing Then
oCell.Select
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)





.

 

[Bob Phillips]

my pleasure.

--

HTH

RP
(remove nothere from the email address if mailing direct)