Dim aRange As Range
Dim bRange As Range
Dim rng As Range

     Set aRange = Range("D3:CZ3").Find(what:=dblNr, LookAt:=xlWhole, LookIn:=xlValues)
         intClm = aRange.Column()

     Set bRange = Range("C4:C404").Find(what:=dblZP, LookAt:=xlPart, LookIn:=xlValues)
         intRow = bRange.Row()

     Set rng = Intersect(Rows(intRow), Columns(intClm))
         rng.Select

     dblValue = ActiveCell.Value