Run-time error '9' Problem

[AndyEarl]

I'm linking a particular cell with a hyperlink that is date specific, so when I change the date I'm looking up data for I would like to pull up the website to the particular day. Here is the code:

[VBA]Private Sub Update_All_Savings()
Dim Hyperlink_Change As String

Application.Run ("OpenCalendar()") This is where the date is changed
Production_Day = Range("BZ1").Value
Calculate
Hyperlink_Change = Range("CC1").Value Cell CC1 contains the concatenation equation that comes up with the date specific website address
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Selection.Hyperlinks(1).Address = Hyperlink_Change
'Hyperlinks (1) is the previous dates hypelink[/VBA]

When stepping through the macro here I get the Run-time error '9' Subscript out of Range

Any clues to my mistake?

[Bob Phillips]

Where do you get the error?