Problems with looping macro through specific folder

Hi, i have a macro to clear contents on all sheets on Col A.

Sub clearcontents()

Dim S_heet As Worksheet
    For Each S_heet In ActiveWorkbook.Sheets
        
            With S_heet
                .Columns("A:A").clearcontents
            End With
       
    Next S_heet
End Sub

this macro works when i place it in a specifc workbook to run it. However when i try calling it using this macro to loop through all workbooks in specific folder it doesn't work. The looping macro is as below. Can someone show me where i went wrong? Master represents the workbook which the looping macro is running from and Book1 and Book2 are the files that i want to clear contents with.

Sub RunCodeOnAllXLSFiles()

Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

'Application.ScreenUpdating = False
'Application.DisplayAlerts = False
'Application.EnableEvents = False

On Error Resume Next

Set wbCodeBook = ThisWorkbook

    With Application.FileSearch
        .NewSearch
         'Change path to suit
        .LookIn = "C:\Documents and Settings\Administrator\Desktop\Test"
        .FileType = msoFileTypeExcelWorkbooks
        '.Filename = "Book*.xls"

            If .Execute > 0 Then 'Workbooks in folder
                For lCount = 1 To .FoundFiles.Count 'Loop through all.
                 'Open Workbook x and Set a Workbook variable to it
                 Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)

                 Call clearcontents
                 
                 wbResults.Close SaveChanges:=True
                 Next lCount
            End If
    End With

    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Hi i tried your macro but there seems to be an error

Sub d()

    Dim cel As Range
    Dim nFile, sh As Worksheet
   
      Application.ScreenUpdating = 0
        With CreateObject("scripting.filesystemobject")
                 For Each nFile In .getfolder("C:\YourFilePath").Files
                    With Workbooks.Open(nFile)
                      For Each sh In .Sheets
                         With sh
                            .Columns("A:A").clearcontents
                         End With
                      .Close True
                    End With compile error here
                  End If
                Next
       End With
     Application.ScreenUpdating = 1
End Sub

However essentially i want to learn how to use a macro in a master workbook to loop pre-exisiting macros by call the sub procs, is there anyway to work around it this way?

Hi thanks for your help i think the macro works but i the macro does not save the results of the clearcontents how do i add that?

Thanks the code now works, is there a way to code so that i can just call sub procedures because i still have other macros i want to loop through folders?

Option Explicit

Sub d()

    Dim cel As Range
    Dim nFile, sh As Worksheet

    Application.ScreenUpdating = 0
    With CreateObject("scripting.filesystemobject")
        For Each nFile In .getfolder("C:\Users\Owner\Desktop\新しいフォルダー").Files
            With Workbooks.Open(nFile)
                Call clearcontents
                .Close True
            End With
        Next nFile
    End With
    Application.ScreenUpdating = 1
End Sub

something like this? where clear contents is

sub c()

Dim sh as worksheets

 For Each sh In .Sheets
                    With sh
                        .Columns("A:A").ClearContents
                    End With
                Next sh

End Sub

because i still have other macros to run and i am not very proficient at macros hence i want a general macro that links several subprocedures together, instead of prompting the forum boards continually. Thanks modred and dave

Hi, i have tried again using call sub method however the is an error on the sub c()

sub c()

Dim sh as worksheets

 For Each sh In .Sheets (error down here)
                    With sh
                        .Columns("A:A").ClearContents
                    End With
                Next sh

End Sub

can someone clarify why there is an error when calling this sub proc?

actually i have other sub sub procs such as trim all cells and also adding a date column based on a cell reference that is why i am more comfortable using a looping macro through folder and then calling sub procs thanks a lot