VBA Error

[tom_blamire]

I have a piece of VBA that I wrote which worked perfectly. For some unknown reason when it runs it is showing nothing but a blank page. Can you help?

ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Delete
    Range("S9").Select
    Selection.ClearContents
    Columns("E:F").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:B1").Select
    Selection.ClearContents
    
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = True
    ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

 

[VoG]

Perhaps delete this line

Selection.ClearContents

 

[tom_blamire]

Something weird has happened. I need the selection.clearcontents as it has info that has to be deleted. I changed the Columns("E:F").Select to a range and re-run the VBA and it worked?

 

[VoG]

Try stating explicitly which range to clear, e.g.

Range("A1:B1").ClearContents