Delete all hidden worksheet on multiple files

Hi guys!

I got lots of excel files of the same template and was wondering if you could help me delete all hidden tabs without coding them one by one.

Can below code can be converted so that it would delete all hidden worksheets of all excel files in a folder?

Sub deletehiddenwbs()
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Visible <> True Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub

Or if you have any alternative in deleting them in one go please do let me know.

Thank you very much in advance!

Sincerely,
Jowj

Hi Guys so I found this online. How would I combine the two codes so it would run?

Code below loops through files in a folder.

Sub AllFiles()
Dim folderPath As String
Dim filename As String
Dim wb As Workbook

folderPath = "C:\SAP Imports\Sales Orders\" 'change to suit

If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"

filename = Dir(folderPath & "*.ped")
Do While filename <> ""
Application.ScreenUpdating = False
Set wb = Workbooks.Open(folderPath & filename)

'Call a subroutine here to operate on the just-opened workbook
Call 'name of your other macro here

filename = Dir
Loop
Application.ScreenUpdating = True
End Sub

Help

Sincerely,
Jowj