Makro Hilfe

Sub KUBOSanzeigen()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ThisWorkbook.Worksheets(1)
Set wks2 = ThisWorkbook.Worksheets(3)
sWert = wks1.Range("A3").Value
With wks2.UsedRange
Set c = .Find(sWert, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternRed
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Sheets("Bonus").Select
End 

Sub
Jetzt würde ich gerne, dass bei dem Wechsel des Arbeitsblattes auch automatisch in die Zeile gesprungen wird in der der Wert von A3 steht.
Geht das?