I am attempting to create a hyperlink on a shape object's textframe using VBA in Excel 2007. I'm not sure if this is even possible, but I figured I'd ask for some guidance. I would like the hyperlink to automatically link to another spreadsheet (Sheets("Data")) within the same workbook, then filter that spreadsheet by the given Project Number. See code for more details:
Dim s As Shape
Dim projectNumber As String
projectNumber = "P38947938"
Set s = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 50, 25)
s.TextFrame.Characters.Text = projectNumber
'Create hyperlink (using the shape's textframe, possibly) to link to Sheets("data"),
'Then filter Sheets("data") by Project Number.
'ie: Cells("A1") is the Project Number column in Sheets("data");
'''Filter A1 by the given project number passed from the shape's textframe
Is this even possible? I'm pretty sure that you can do this with text within a cell (but have not done that yet either). Any help would be greatly appreciated!