Блог

Мне нужно иметь возможность автоматически добавлять гиперссылку на рабочий лист в той же книге.

Приведенный ниже код создал новый отчет и называет его в соответствии с активной ячейкой на главной странице.

Я хочу создать гиперссылку на эту ячейку на вновь созданный лист с тем же именем.

 Sub New_sheet()
    Dim ShtName As String
    Application.DisplayAlerts = False
    On Error GoTo ErrMsg
    ShtName = ActiveCell.Value2 ' <-- save the value of the ActiveCell
    Set ws = Sheets("Blank incident tab")
    ws.Copy After:=Sheets("Incident Catagories")
    Set wsNew = Sheets(Sheets("Incident Catagories").Index   1)
    wsNew.Name = ShtName
    Exit Sub

    ErrMsg:

    MsgBox ("That incident report already Exsists, Please chaeck and open a new incident"), , "Error Duplicate incident"

    Sheets("Blank incident tab (2)").Delete

    Application.DisplayAlerts = True
End Sub