Can anyone help me with the bold code that is a type mismatch below?
Sub Promise_Date_Change_Detector()
Application.ScreenUpdating = True
Dim WB As Workbook, WS As Worksheet
Dim c As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("U:\Public\All Customer...