Getting "Object variable or With block variable not set" error with Find function

I am trying to allow a user to double-click on a cell in column 2 on Sheet1 and it will take them to a cell on a different worksheet where the date matches the date that is on the same row in column 1 on Sheet1. Code is below:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim fRow As Integer
  Dim fSheet, fDate As Variant
  
  If (Target.Row < 3) Or (Target.Font.FontStyle = "Bold") Or (Cells(2, Target.Column).Value <> "Notes") Then Exit Sub
  fSheet = Sheet1.Cells(1, Target.Column).Value
  fDate = Sheet1.Cells(Target.Row, 1).Value
  Sheets(fSheet).Activate
  fRow = ActiveSheet.Range("A3:A20000").Find(fDate, , xlValues).Row
  Sheets(fSheet).Cells(fRow, 1).Select
  Application.Goto ActiveCell, Scroll:=True
  
End Sub

I am getting the error on the line with the range.find. I've tried multiple ways to write it but keep getting the error.

 Set fRow = ActiveSheet.Range("A3:A20000").Find(what:=fDate, LookIn:=xlValues, lookat:=xlWhole)

if you want to use a find/match function

Thanks for the reply but it's still not working. I need the row where the date matches. I changed the variable type to "Object" and changed "Sheets(fSheet).Cells(fRow, 1).Select" to "Sheets(fSheet).Cells(fRow.row, 1).Select" but still getting the error, except on the aformentioned line.

That worked perfectly, thank you!!