Sub ГИПЕРССЫЛКА()
 
   Url$ = FormulaHyperlink.Range("F22")
     

   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$
     
End Sub
 
Function FormulaHyperlink(ByRef cell As Range) As String

    If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
        If cell.Formula Like "=HYPERLINK*" Then
            FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
        End If
    End If
    
End Function

Option Explicit
Sub ПХ_ОБЩАЯ_скрытьвсе1()   
    Sheets("ОБЩАЯ").Shapes("Группа 3").Visible = msoTrue
    Sheets("ОБЩАЯ").Shapes("ОБЩАЯ1").Visible = msoTrue
    
    Sheets("ОБЩАЯ").Range("A:AT").EntireColumn.Hidden = False
End Sub

Sub ПХ_ОБЩАЯ_скрытьвсе()
    Sheets("ОБЩАЯ").Shapes("Группа 3").Visible = msoFalse
    Sheets("ОБЩАЯ").Shapes("ОБЩАЯ1").Visible = msoTrue
    
    Sheets("ОБЩАЯ").Range("A:AT").EntireColumn.Hidden = True
End Sub

Sub ИНФО_ПОСТЫ()
With Worksheets("Запрос")
    Sheets("Запрос").Select
    Range("AK1:AFF1010").Select
    Selection.Copy
    Range("AGR1:BLM1010").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            Application.CutCopyMode = False
End With
End Sub

Sub ОБН_информации()
With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ИНФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
Call КП_СТАТИСТИКА_ОБЩАЯ
    End Sub

Sub ОБН_посты()
    With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ФИФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
End Sub

=ЕСЛИ(AG4<>"";AG4;AH4)

https://www.instagram.com/graphql/query/?query_hash=472f257a40c653c64c666ce877d59d2b&variables={"id":"93024","first":12,"after":"XXXXXXXX"}

Source = Excel.CurrentWorkbook(){[Name="ЗП_ВОССТАНОВЛЕНИЕ_ЛОГИНА"]}[Content],
    add = Table.AddColumn(Source, "a", each let
    Source = Json.Document(Web.Contents("https://www.instagram.com/graphql/query/?query_hash=ad99dd9d3646cc3c0dda65debcd266a7&variables={"user_id":"&[Column1]&,""include_reel":true}"))

Sub ОБН_ЗАПРОСОВ()
For Each oc In ThisWorkbook.Connections
        IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
        oc.OLEDBConnection.BackgroundQuery = False
        oc.Refresh
        oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
    Next
End Sub