Hyperlink to cell where condition is true within a range

[Diogenes]

Hi all,

Been searching the interwebs for an answer to how I might hyperlink to a cell where an IF statement is true.

I have a worksheet with 100's of columns with dates in them and then on the row above the following formula =IF(BP4=TODAY(),"TODAY","").

When tomorrow it arrives BQ4 will obviously become the "TODAY" cell.

My question is how do I create a hyperlink or button way back in Cell A3 which takes you to whatever cell that currently equals "TODAY" in a range from D3:APJ3.

Any help would be appreciated.

Thanks,

 

[SteveO59L]

something along the lines of

Dim c As Range, rng
Set rng = Range("f1:f20")
Range("a1").ClearContents

For Each c In rng
If c.Value = Date Then
Range("a1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet1!" & c.Address, TextToDisplay:="Today"
End If
Next c