jjbbbb

Tengo el siguiente código Sub Fecha() Dim Fecha As String Dim dd, mmm, aaaa As String dd = 9 mmm = 1 aaaa = 2012 Fecha = dd & "/" & mmm & "/" & aaaa MiCadena = Format(Fecha, " dd/mm/yyyy") Range("K1").Select ActiveCell.Value = MiCadena...