Run-Time error '424' Object required. (1 Viewer)

Sub Search(objFolder)
   dim objsubfolder
   
   if objfolder.files.count < 1 Then
      objfolder.delete
      exit sub
   endif
   
   if objfolder.subFolders.count > 0 Then
      for each objsubfolder in objfolder.subFolders
         call search(objsubfolder)
      next
   endif

End Sub

Private Sub Command65_Click()
On Error Resume Next ' <-- Comment out for troubleshooting.

Const Prep = "\\Servername\DART$\Document-Library\Doc-Production"

Dim objfolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objfolder = objFSO.getFolder(Prep)

Call Search(objfolder)
End Sub
Sub Search(objfolder)

Const Prep = "\\Servername\DART$\Document-Library\Doc-Production"
Dim objsubfolder, objfile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objfolder = objFSO.getFolder(Prep)

   'For Each objfile In objfolder.Files
        'If DateDiff("d", objfile.dateLastModified, Now) > 30 Then objfile.Delete
    'Next
    
    For Each objsubfolder In objfolder.SubFolders
    If objsubfolder.Files.Count = 0 Then objsubfolder.Delete
    Next
        
End Sub