Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errhandler
Dim strAddress As String
strAddress = Target.Address
If InStr(1, strAddress, ":") > 0 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Sorry, Paste has been prevented. Action has been un-done", vbCritical, " "
End If
Exit Sub
errhandler:
Application.EnableEvents = True
MsgBox "An error has occurred in the paste prevention worksheet change event as follows: " & Err.Description, vbCritical, " "
End Sub