On Friday, 7 May 2021 at 11:27:14 UTC+2, Claus Busch wrote:

have another look at OneDrive and download the new version.
Regards
Claus B.
--
Windows10
Microsoft 365 for business

Hi Claus,
now it works! Thank you very much!
I include the code here for others. I'm sure you don't mind.

Sub Test()
Dim myRow As Long
Dim myDate As Double

With ActiveSheet
myDate = .Range("E3")
If Application.CountIf(.Range("H7:H18"), myDate) 0 Then
myRow = Application.Match(myDate, .Range("H1:H18"), 0)
Application.Goto .Range("H" & myRow)
End If
End With
End Sub

Regards,
Norbert