No need to select the cells to change then, just use this
Range("B1:C2001") = Range("B1:C2001").Value

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **

"paritoshmehta " wrote in
message ...
Hi,

I have this code written which doesnt let the user to select the cells
(to prevent accidental deletion):

1st macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Me.Range("b2:c2001")) Is Nothing Then Exit Sub
Me.Cells(Target.Row, "D").Select

End Sub


Now the problem is that i want a macro which will just copy the b and c
columns and paste the values to the same columns, the macro is preety
simple, the problem is that because of the earlier macro, i cannot
select the columns.....

2nd Macro:
Sub Macro()

Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
End Sub


is there a way where i can turn the fist macro OFF when the second
macro runs???

thanks for any help!!!


---
Message posted from http://www.ExcelForum.com/