Sub CreateHLFromActiveSheetToSheet1()
Set Rng = ActiveSheet.Range("A50").End(xlUp).Offset(1, 0)
ActiveSheet.Hyperlinks.Add anchor:=Rng, Address:="", SubAddress:=Sheets("Sheet1").Name & "!A1", _
ScreenTip:="Click to go to Sheet1", TextToDisplay:="Go To Sheet1"
End Sub
Sub CreateHLFromSheet1ToActiveSheet()
Set WS = Sheet1
Set Rng = WS.Range("A50").End(xlUp).Offset(1, 0)
WS.Hyperlinks.Add anchor:=Rng, Address:="", SubAddress:=ActiveSheet.Name & "!A1", _
ScreenTip:="Click to go to Sheet1", TextToDisplay:="Go To " & ActiveSheet.Name
End Sub
Monday, 12 November 2018
VBA Add Anchor (Hyperlink) to Active Sheet
Subscribe to:
Post Comments (Atom)
php - file_get_contents shows unexpected output while reading a file
I want to output an inline jpg image as a base64 encoded string, however when I do this : $contents = file_get_contents($filename); print ...
-
I would like to split a String by comma ',' and remove whitespace from the beginning and end of each split. For example, if I have ...
-
I got an error in my Java program. I think this happens because of the constructor is not intialized properly. My Base class Program public ...
-
I have an app which needs a login and a registration with SQLite. I have the database and a user can login and register. But i would like th...
No comments:
Post a Comment