Sub Macro4()
Dim W As String
Dim X As String
Dim Y As String
W = Sheets(Worksheets.Count).Name
X = Right(W, 1)
Y = "'" & W & "'!A1"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Y, TextToDisplay:=X
ActiveCell.HorizontalAlignment = xlCenter
End Sub