VBA problems after upgrading to Excel 2016

[vandango05]

Hi.

I've got a worksheet with many macros that have worked fine in Excel 2010 that i've just stopped using buy many colleagues still are. Here is an example of some code that will no longer run.

Sub deleteimages()Dim s As String
Dim pic As Picture
Dim rng As Range


' Set ws = ActiveSheet
Set ws = ActiveWorkbook.Worksheets("Quotation")


Set rng = ws.Range("A26:L8000")


For Each pic In ActiveSheet.Pictures
With pic
s = .TopLeftCell.Address & ":" & .BottomRightCell.Address
End With
If Not Intersect(rng, ws.Range(s)) Is Nothing Then
pic.Delete
End If
Next


End Sub

It fails at the line

For Each pic In ActiveSheet.Pictures

another section of code i'm having problems with simply filters some data

ActiveSheet.Range("$K$5:$K$7475").AutoFilter Field:=1, Criteria1:=">0", _
        Operator:=xlAnd

It appears that 2016 doesn't much like the ActiveSheet part. No doubt i'm going to have lots more issues as more users adopt 2016 so any help would be appreciated.

 

[Yongle]

I'm calling the Macro with a button, hoistnoteetc is just the name of another macro that runs at that stage of the code which appears to work fine.

In isolation it may do - is it perhaps changing the active sheet ?

 

[vandango05]

Removed 'Hoistnoteetc' and it still fails

 

[Fluff]

Do you have any add-ins?
If so try removing them & see if you still get the same problem

 

[vandango05]

Do you have any add-ins?
If so try removing them & see if you still get the same problem

No add-ons. I'm going to try removing all the macros and re-adding them one by one to find the actual issue I think.

Thanks for your suggestions thus far, hopefully i'll have a solution tomorrow - head has gone to mush for the day.

 

[Fluff]

Also worth checking the references in the VBE to see if any are marked as MISSING