Перейти по ссылке в ячейке в общей книге Excel

Sub открытьВыделенныеСсылки() If InStr(Selection, "http") = 0 Then End If ActiveWorkbook.MultiUserEditing Then X = Selection.Copy Workbooks.Add: wbName = ActiveWorkbook.Name With ActiveSheet .Range("c1").Select: .Paste: Application.CutCopyMode = False .Range("a1").Value = "Открываю ..." .Range("a2").Value = DateValue(Now) .Range("c2").Value = Format(Time, ShortTime) .cells.Interior.color = 5296274 End With End If ActiveWorkbook.FollowHyperlink Selection Call ЗакрытьКнигуПоИмениБезСохранения(wbName) End Sub Sub ЗакрытьКнигуПоИмениБезСохранения(ByVal wbName4Close As String) wbNLen = Len(wbName4Close): If wbNLen = 0 Then Exit Sub Dim wb As Workbook For Each wb In Workbooks If Right(wb.Name, wbNLen) = wbName4Close Then wb.Close False Next wb End Sub

Видео Перейти по ссылке в ячейке в общей книге Excel автора Excel для финансового анализа