What is it supposed to do? What problems are there?

You do have an extra End Sub

it is suppose to look in the CallerDB for the name selected in F6. If found it should assign the values for CalrDBRow and CalrDBCol. Once completed it with change focus to Sheet1 F6.

I get an error that it cannot open the macro and that Target is not defined. The extra End Sub for the selctonChange sub.

What is the with Sheet2 for? It doesn't appear to do anything. I thing one of the problems may be you have a sub inside another sub. Target is not defined in the sub you are calling it from.

I'm no expert in Excel VBA but try this and see if it works.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim CalrDBRow As Long
  Dim CalrDBCol As Long
  
  If Not Intersect(Target, Range("A3:F10002")) Is Nothing Then
    CalrDBRow = Target.Row
    CalrDBCol = Target.Column
    Sheet1.Range("B2").Value = CalrDBCol
    Sheet1.Range("B3").Value = CalrDBRow
    Sheet1.Range("F6").Select
  End If

End Sub