Index hyperlinks to show workbook cell text

Working in Excel 2010

I have the index loop but I simply want to display the text in cell A4 of each sheet instead of the sheet name (which needs to stay as the default). The number of sheets is dynamic (usually no more than 25 or 30) but they are all the same template so the cell location can be absolute. I have everything else exactly as I wish it, except for the name to display.

The text in the cells I want to reference is far longer than the 31 character limit to rename my sheets as well as (once I am done with it) it goes to others with separate macros, so renaming the sheets is not an option.

The code I have is as follows:

[VBA]
Worksheets("QuickView").Select

For i = 1 To Sheets.Count

ActiveSheet.Hyperlinks.Add _
Anchor:=ActiveSheet.Cells(3 + i, 4), _
Address:="", _
SubAddress:="'" & Sheets(i).Name & "'!A4", _
TextToDisplay:=Sheets(i).Name
[/VBA]

I've tried to change the TextToDisplay in several different configurations but it won't accept anything that I change it to.