Sheets.Unprotect not working
I've got the following macro tied to a dropdown box. It's a copy/paste
macro to move the chosen value to another cell, which is protected. For
some reason, it's not unprotecting. I haven't a clue why... this seems
so simple. There is no password and other macros are running fine on
this same sheet.
Sub DropDown43_Change()
Sheets("Order").Unprotect
' CAPTURE Thickness
Range("G4").Select
Selection.Copy
Range("IG_Unit_Thickness").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("F3").Select
Sheets("Order").Protect
End Sub
|