Hello all, i have a vba button that will create and rename a sheet to the end but i would like to modify it.
Can i hyperlink it to an active cell?
Say i have highlighted G15 and i would like to run the code and then it hyperlink the sheet that was created.
Any advice would be appreciated, thanks

Sub Button16_Click()
Dim xName As String
Dim xSht As Object
On Error Resume Next
xName = InputBox("Name ", "")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
Sheets.Add(, Sheets(Sheets.Count)).Name = xName
Sheets(1).Select
End Sub