Match Function Wont Work in VBA

can anyone see what is wrong this this code?




Private Sub CommandButton1_Click()

Dim RangeTarget As Integer


RangeTarger = Application.WorksheetFunction.Match(ISS_ID_Menu, Sheets("Data_Master"), Range("Dyn_Date"), 0)

MsgBox RangeTarget



End Sub