Macro Protection Issue

[MikeG]

I have the macro pasted below, and it hits an error on the ClearContents line, saying that the cells you are trying to change are protected. I checked and the worksheet definitely does not have protection on. The range "Master_Paste_Area" is in this same worksheet.

Can anyone help?

Thanks,

MikeG


=================================================

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "Q4" Then

ActiveSheet.Unprotect

Range("Master_Paste_Area").ClearContents
Range("Master_Paste_Area").ClearFormats


End If

ActiveSheet.Protect

End Sub

 

[VoG]

Strange. Does this fare any better

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "Q4" Then
    With Me
        .Unprotect
        .Range("Master_Paste_Area").ClearContents
        .Range("Master_Paste_Area").ClearFormats
        .Protect
    End With
End If
End Sub

 

[MikeG]

Thanks VoG. That works. I then reran my original and now that works.

Hmmm