Bom dia pessoal,

Estou criando um código simples para localizar uma data inputada num TextBox de um form e retornar sua posição em um intervalo.
Infelizmente não estou conseguindo aparecendo Erro 2042.

Private Sub CommandButton1_Click()

Dim y As Date
Dim x As Variant

y = TextBox1.Value

x = Application.Match(y, Range("A1:F1"), 0)

End Sub

Alguem poderia me ajudar?

Obrigado!