View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Bernie Deitrick Bernie Deitrick is offline
external usenet poster
 
Posts: 5,441
Default Indirect Hyperlink from a graphic to a calculated cell or range

Ken,

Assign a macro that reads the text from the button and acts on the basis of
the return. For example, assign this to each button to have the buttons
select the ranges addresses listed in K1:K26 - this assumes that the labels
are A, B, C, etc.

Sub WhoRang()
Dim myname As String
Dim myStr As String

myname = Application.Caller
myStr = Left(ActiveSheet.Shapes(myname).TextFrame.Characte rs.Text, 1)
Application.Goto Range(Range("K" & Asc(myStr) - Asc("A") + 1).Value)

End Sub

HTH,
Bernie
MS Excel MVP




"KenInPortland" wrote in message
...
I need to make a hyperlink from a graphic to link indirectly to a cell or a
range of cells in the same worksheet.
The worksheet is alphabetized and I have created graphic buttons across
the
top with the letters A to Z. The number of rows (1000+) changes frequently
and the A to Z tabs are used to index into the correct area of the
spreadsheet, which I have been manually updating.

I can calculate the starting address for each of the tabs, but I have yet
to
find the proper combination of Hypertext, Cell, Indirect, &, ", ', # etc.
to
jump from the 26 graphics labeled A to Z to the proper cells address which
are contained in K1 to K26.