Hi,

This code was working fine in 2010, but gives a runtime error 5 in 2013:

For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = msoTrue
Next i
ActiveSheet.Shapes.Range(Array("Picture 50")).Visible = msoFalse
Application.CommandBars("Selection and Visibility").Visible = False

When running the debug, the last line of code is highlighted. Any help would be appreciated. Thanks.