Brug af Excels "MATCH" funktion i VBA

Jeg har en Excel funktion, der gerne skal bygges ind i mit VBA-script.

Som det er nu, har jeg to ark: Ark1 og Ark2

I Ark1 har jeg en celle (H2), som har en værdi (Dato). Den værdi skal findes i en kolonne i Ark2, og rækkenummeren skal returneres.

Funktionen i Excel er:
=RÆKKE(INDIREKTE(ADRESSE(SAMMENLIGN(H2;Ark2!$A:$A;0);1;4)))

Jeg har forsøgt mig med Application.Match, men får fejl.

Sub testMatch()
Dim myvalue As Long
Dim matchtext As String
Sheets("Ark1").Select
matchtext = ActiveSheet.Range("H2").Text
Sheets("Ark2").Select
myvalue = Application.Match(matchtext, Range("A6:A10000"), 0)
MsgBox (myvalue)
End Sub

Nogle forslag?