Macro ClearContents specified range cells on multiple Workbooks

[smide]

Hello.

I'm currently using the following code to clear cells in a Sheet2:

Option Explicit

Sub Clear()
  Worksheets("Sheet2").Range("A1:Z50").ClearContents
End Sub

However, since I have about 30 Workbooks (all in the same folder) I would like to clear contents in all of them (range A1:Z50, Sheet2) with a one single macro run (without running 30 macros in each book separately).
Any idea how to solve this?

 

[WarPigl3t]

Use Google to find something that can do these tasks.

Sub myMacro()
     'Open a dialog box to select a folder.
     myFolder = folderPickerFunction()

     'For each file in the folder that has an extention of .XML 
     'Begin Loop
     
     'Your macro
     Call yourMacro()

     'End Loop
End Sub
Function folderPickerFunction()