Sub qq()
    With Selection.Parent
        .DrawingObjects.Interior.Color = 12419407
        .DrawingObjects(Application.Caller).Interior.Color = 255
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target(1).Address = "$F$2" Then
        With Sheets("Лист2").AutoFilter.Range
            .AutoFilter Field:=3, Criteria1:=[F2]
        End With
    End If
End Sub

    Application.CopyObjectsWithCells = False
    Application.CopyObjectsWithCells = True

Sub qq()
    Dim cl As Range
    With Sheets("Лист1")
        For Each cl In .ListObjects("Transform").ListColumns(1).DataBodyRange.Cells
            .Hyperlinks.Add cl, cl.Next.Value, , , cl.Value
        Next
    End With
End Sub

Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1").ListRows.Count

GoSub sRange

ActiveSheet.Name = Left(rg.Cells(r, 2), 31)