Copy data from one cell to another cell with format

[psk]

Hi ,
Anyone can tell me the Vb code in Excel for copying the data from onc cell to another cell without changing the format..


When i use like
cells(2,2) = cells(1,1)

It's copied the value but not the exact format ..


Thanks in advance

[swatsp0p]

You can copy/paste special as such:

Range("A1").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False