Run time error 5 on Excel 2010 but not Excel 2016 (VBA)

[wkbiscuit]

Hi all,


I am having some problems with the following VBA code to color some objects and add a screentip.
The code works fine on my Excel 2016 (Windows), but it does not work on Excel 2010 (Windows) (It gives Run Time Error 5)


However, I need to make sure that this code can work for Excel 2010, can guide me how I can go about making this compatible? (or another method to add screentips to objects which is compatible for both Excel 2010 and Excel 2016)


Code:


Sub Color()
Dim i As Integer
For i = 1 To Range("pntMax")


Range("pntOrder").Value = i
'fills in shape
ActiveSheet.Shapes(Range("pntShape").Value).Fill.ForeColor.RGB = _
Range(Range("pntColor").Value).Interior.Color
'adds screen tip
ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes(Range("pntShape").Value), "", "G20", ScreenTip:=Range("pntTextValue").Value




Next i
ActiveSheet.Range("pntOrder").Select
End Sub




On Debug, this line adding the screentip is highlighted
ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes(Range("pntShape").Value), "", "G20", ScreenTip:=Range("pntTextValue").Value