Hello,

I have made a macro that allows me to search for a certain string on all excel files in a specific folder.

My problem is that, that specific folder also contains ZIP files, and inside those ZIP files, are more Excel files.

How can I include the "*.zip\*.xlsx" in my search range?

The start of the code is the following:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim MyFolder As String
Dim MyFile As String
Dim ws As Worksheet
MyFolder = "C:\Users\Username\Desktop\New Folder"
MyFile = Dir(MyFolder & "\*.xlsx")