Hi,
I am trying to write code that will allow data to be pasted into multiple cells and then have the cells that were pasted into lock.
The code I'm using works if data is entered into a single cell however when I paste to multiple cells the code returns the error "Run Time Error 13: Type Mismatch"
My code is below
Thanks in advance.
I am trying to write code that will allow data to be pasted into multiple cells and then have the cells that were pasted into lock.
The code I'm using works if data is entered into a single cell however when I paste to multiple cells the code returns the error "Run Time Error 13: Type Mismatch"
My code is below
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("B19:R39")) Is Nothing Then
If Target.Value <> "" Then
ActiveSheet.Unprotect Password:="pass"
Target.Locked = True
End If
End If
ActiveSheet.Protect Password:="pass"
Application.EnableEvents = True
End SubThanks in advance.
