With ActiveSheet
With .Range("X6")
.Locked = False
.FormulaHidden = False
End With
.Range("V17").copy
With .Range("X6")
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "$#,##0.00"
Range("W6:W17").Select
Selection.ClearContents
The above code copies from v17 to x6 as it should
for some reason I cannot see why the following will not copy from x6 to v5
With ActiveSheet
With .Range("V5")
.Locked = False
.FormulaHidden = False
End With
.Range("X6").copy
With .Range("V5")
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
.Locked = True
.FormulaHidden = False
End With
Can any one help?
Thanks in advance I am stumped