Eu tenho uma macro que eu especificar a data (em mm / dd / aaaa) em uma caixa de texto e eu quero definir esse valor para a coluna A no formato aaaa-mm-dd. Eu tenho o seguinte código:

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

... e quando executo a macro, a data ainda está no formato mm / dd / aaaa.

Como posso mudar isso para que fique no formato que eu quero? Eu tenho tentado muitos tipos de código pesquisados ​​através do google e nada irá definir o formato da maneira que eu quero.

Qualquer ajuda será apreciada...

EDIT: código completo do comentário do OP abaixo:

 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"