Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlink --- misswritten....
This is getting out of hand but this code works:
For Each Wsh In Sheets strWshName = Wsh.Name If strWshName < "List of Worksheets" Then I = I + 1 RA = Replace("B" & Str(I), " ", "") Set CurCell = Range(RA) strAddress = "'" & strWshName & "'!A1" strAddress = Replace(strAddress, " ", "") ActiveSheet.Hyperlinks.Add _ Anchor:=CurCell, _ Address:="", _ SubAddress:=strAddress, _ TextToDisplay:=strWshName With CurCell .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Font.Name = "Arial" .Font.FontStyle = "Regular" .Font.Size = 10 .Font.ColorIndex = xlAutomatic End With End If Next Wsh If one posts code it should be correct. John Wirt |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Paste Hyperlink result as working hyperlink | Excel Worksheet Functions | |||
Can't make hyperlink function work for hyperlink to website | Excel Worksheet Functions | |||
How do I create a hyperlink to a cell with the hyperlink function | Excel Worksheet Functions | |||
Moving rows with Hyperlink doesn't move hyperlink address | Excel Discussion (Misc queries) | |||
Intra-workbook hyperlink: macro/function to return to hyperlink ce | Excel Discussion (Misc queries) |