ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets(fortnr).Name & "!A1"
Адрес должен быть пустым, а дополнительный адрес должен быть в форме Sheet1! A1.Это помещает ссылку в активную ячейку, предполагая, что у вас есть переменная с именем fortnr, которая содержит действительное имя листа в той же книге.
Если вы хотите указать на ячейку в другой книге, то все будет таким же, кромеАдрес должен быть этим файлом.
ActiveSheet.Hyperlinks.Add ActiveCell, Workbooks(1).FullName, Sheets(fortnr).Name & "!A1"
Предполагается, что Workbooks (1) - это другой файл, который был ранее сохранен и имеет лист с правильным именем и т. д. и т. д.