O correto é:

Sheets("Plan2").range("C2")=Format(txtData, "DD/MM/YYYY")

Só que eu queria que toda a coluna "C" ficasse neste formato.

Segue em anexo.

Att,

tente assim:

'Declaração de Variáveis
Dim LinhaCodigo As Long 'Linha onde está o código

'Procura pelo código, caso não encontre pega a última linha
'e considera uma inclusão
LinhaCodigo = ProcuraCodigo(CInt(txtCodigo.Text))
If (LinhaCodigo = 0) Then
LinhaCodigo = UltimaLinha + 1
End If

'Grava os dados do formulário na planilha
Sheets("Plan2").Cells(LinhaCodigo, 1) = txtCodigo.Text
Sheets("Plan2").Cells(LinhaCodigo, 2) = txtNome.Text
Sheets("Plan2").Cells(LinhaCodigo, 3) = CDate(txtData.Text)'<<<<<<<<<<<<<<<<<<<<

'Mostra a Mensagem
MsgBox "Salvo com sucesso!"

Muitíssimo obrigado Cleiton jm