Place this code in the worksheet module.

Private Sub Worksheet_Change(ByVal Target As Range)
'retain formatting when a cell is copied over
Dim myValue
With Application
.EnableEvents = False
myValue = Target.Value
.Undo
Target = myValue
.EnableEvents = True
End With
Application.CutCopyMode = False
End Sub

Note: will crash if cells are "cut" rather than copied.


Gord Dibben MS Excel MVP

On Sun, 17 Jan 2010 06:17:01 -0800, Aman
wrote:

Can you help me with VBA code? because i want t keep the formatting and
condition on cells as i did and disable the user to use copy and past from
another unformatted cell