Tengo una macro en la que especifico la fecha (en mm / dd / aaaa) en un cuadro de texto y quiero establecer este valor para la columna A en el formato aaaa-mm-dd. Tengo el siguiente código:

Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value
Sheet1.Range("A2", "A50000") = Format(Date, "yyyy-mm-dd")

... y cuando ejecuto la macro, la fecha aún está en formato mm / dd / aaaa.

¿Cómo puedo cambiar esto para que esté en el formato que quiero? He estado probando muchos tipos de códigos investigados a través de google y nada establecerá el formato como lo quiero.

Cualquier ayuda será apreciada ...

EDITAR: Código completo del comentario de OP a continuación:

 Workbooks.Add
 Range("A1") = "Acctdate"
 Range("B1") = "Ledger"
 Range("C1") = "CY"
 Range("D1") = "BusinessUnit"
 Range("E1") = "OperatingUnit"
 Range("F1") = "LOB"
 Range("G1") = "Account"
 Range("H1") = "TreatyCode"
 Range("I1") = "Amount"
 Range("J1") = "TransactionCurrency"
 Range("K1") = "USDEquivalentAmount"
 Range("L1") = "KeyCol"
 Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value
 Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd"