Cita:
Iniciado por 3pies 
Prueba esto:
Código:
Sub Poner_separador_de_miles()
ActiveCell.NumberFormat = "#,##0.00"
End Sub
Eso te pondrá con formato de separador de miles y 2 decimales cualquier cifra que tengas en la celda activa (celda donde estés situado).
Salu2
Gracias de nuevo, pero realmente no quiero esa función, lo que quiero es que me pege el formato de una celda en la que yo quiera, tanto formato numérico, como letra etc....
Gracias