Using the Find function with the What referencing a Range/Cell Value

[PFederinko]

Below is part of the Macro.

Columns("B:B").Select
Selection.Find("01/20/04", _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
ActiveCell.Offset(0, 3).Activate

The macro works but in the portion

Selection.Find("01/20/04"

I would like to have the "01/20/04" (date) reference a value from
cell in my spreadsheet (also a date)

 

[Chip Pearson]

Try something like

Selection.Find Range("A1").Text, ....


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com