Excel 工作表批量设置返回目录按钮

Sub mulu()
    Dim ws As Worksheet
    Dim currentWs As Worksheet
    Dim formula As String

    Set currentWs = ActiveSheet
    formula = "=HYPERLINK(""#'目录'!B2"", ""返回目录"")"
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> currentWs.Name Then
            ws.Rows(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            ws.Range("A1").formula = formula
        End If
    Next ws
End Sub