type 13 error mismatch

[VbaHell]

Hello all

I hope you can help on this please

This code was working fine and has done for months but for some reason it has stopped working on version 2010,2003 of excel.

We keep getting an error 13 type mismatch on the line below that is highlited Bold
When I hoover over the error it points to the last line 785

[FONT=Calibri][SIZE=3][COLOR=#000000]With Sheets("Comments")[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]       arr = .Cells(1,1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 7).Value[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        For x =LBound(arr, 1) To UBound(arr, 1)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]           If dic.exists(arr(x, 1)) Then arr(x, 7) = dic(arr(x, 1))[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        Next x[/COLOR][/SIZE][/FONT]

[B][FONT=Calibri][SIZE=3][COLOR=#000000]        .Cells(1,7).Resize(UBound(arr)).Value = Application.Index(arr, 0, 7)[/COLOR][/SIZE][/FONT][/B]
[FONT=Calibri][SIZE=3][COLOR=#000000]    End With[/COLOR][/SIZE][/FONT]

 

[Trevor G]

Possible option maybe you have referenced to a later version and the older version can't find the reference. As you are only showing the With Statement its hard to tell.