Sub Request_Locking()
'
' > STD Requests WebADI 28/02/2019
' Lock the Request Name
Sheets("1-Param-Work-Instruction").Select
ActiveSheet.Unprotect ("CG")
Range("F4:F9").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.Enabled = False
Range("OriginalTransfRef").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.Enabled = False
End Sub