Stop normal pasting

Posted by Kristen on December 19, 2001 6:43 PM

Is there anyway to stop normal pasting and do a pastespecial|values instead?

something like

sub workbook beforepaste()

cancel = true
selection.pastespecial.values.....

end sub

any thoughts would be appreciated.

Thanks

Posted by Colo on December 19, 2001 10:15 PM

I think paste event cannot be picked up.
My suggestion is use value property after paste.
Or use "Application.undo" event.....
But my idea is not good enough for you.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Application
.EnableEvents = False
Target.Value = Target.Value
.EnableEvents = True
End With
End Sub