Pb avec ma macro

Bonjour,
J'ai un pb avec am macro et je ne sais pas ou est l'erreur
je dois creer une procedure qui permet de sauvegarder mes feuilles excels dans des dossiers differents separement
le nom de mes files doit correspondre a une cellule specifique, cependant lorsque je run la macro le nom ne marche pas (merchant)
Si qqn a une solution a me proposer ce serait tres gentil

Sub Tester()

Const DEST As String = "C:\Users\salome\Desktop\Business\ZOTAPAY\Merchants\" 'adjust to suit...

Dim wbSrc As Workbook, sht As Worksheet, merchant As String
Dim fldr As String


Set wbSrc = ActiveWorkbook

For Each sht In wbSrc.Worksheets

merchant = sht.Range("B1").Value = Filename


sht.Copy
fldr = DEST & merchant
If Dir(fldr, vbDirectory) <> "" Then
With ActiveWorkbook
.SaveAs fldr & "\report20-11to26-11.xlsx"
.Close False
End With
Else
MsgBox "Sub-folder '" & fldr & "' not found!"
End If

Next sht

End Sub