Как я могу запустить этот скрипт excel на всех листах? Удалите все гиперссылки во всей книге

Question

Это сценарий. Он работает хорошо на одном листе, когда я звоню через alt + 8

Однако я хочу запустить его на всех листах, как я могу это сделать?

Ты очень

Здесь макрос

Sub RemoveHyperlinks() 
ActiveSheet.Hyperlinks.Delete 
End Sub 

В основном я хочу, чтобы удалить все гиперссылок во всей книге

Ty очень

Answer 1

Код:

Sub Test() 
    Dim w as Worksheet 

For Each w in ThisWorkbook.Worksheets 
    w.Hyperlinks.Delete 
Next 

End Sub 

Answer 2

Вам просто нужно цикла, как это:

Sub RemoveAllHyperlinks() 
Dim oSht as Object 
For each oSht in Activeworkbook.sheets 
oSht.Hyperlinks.Delete 
next oSht 
End Sub