Festen wert durch Dynamischen erssetzen aus Zelle

Sub Berechnen()
Sheets("Hauptmenü").Select
Dim myRange As Range
Set myRange = Range("A1:A9999")
myMatch = 4
nummer = Application.WorksheetFunction.Match(myMatch, myRange, 0)
Range("D9999").Value = nummer
End Sub