Converter inversão de datas

Pessoal, boa tarde!

Estou aplicando a macro abaixo, mas gostaria que a formatação das datas venham no formato (português - Brasil). Alguma dica? Poderiam me ajudar?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then
Cells(Target.Row, 13).Value = Str(Now)
End If
If Target.Column = 22 Then
Cells(Target.Row, 23).Value = Str(Now)
End If
If Target.Column = 27 Then
Cells(Target.Row, 28).Value = Str(Now)
End If
If Target.Column = 32 Then
Cells(Target.Row, 33).Value = Str(Now)
End If
If Target.Column = 37 Then
Cells(Target.Row, 38).Value = Str(Now)
End If

End Sub

pode usar o format
Dim AA as date
AA = Format(Cells(Target.Row, 13).Value, “dd/mm/yy”)