Bob Phillips
12/12/2006 2:48:00 PM
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" <Student@discussions.microsoft.com> wrote in message
news:D3086937-0CD6-4446-81F6-A9AE775FFBD8@microsoft.com...
>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