unprotect it then

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
validCell = False
Me.Unprotect
For Each cell In Target.Cells
Target.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
Next cell
Me.Protect
End Sub



--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Student" wrote in message
...
I am sorry but is not working (By the way the sheet is protected)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
validCell = False
For Each cell In Target.Cells
Target.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
Next cell
End Sub



"John Bundy" wrote:

If you are copying then I am assuming you are pasting, match destination
formatting should fix you. This should cover it:

Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
--
-John
Please rate when your question is answered to help us and others know
what
is helpful.


"Student" wrote:

Good Morning!
here is the issue
I have formatted my sheet to be text but everytime I copy from a word
document the format changes to General.

is there a way that I could hard code the trigered cell to stay in Text
fromat?

please advise your help is greatly appreciated...Thank you