Error 400

[Ambiguooous]

Hi to all ..

I want to know what is the problem with me in this code ?? because not accepted to run (error 400)

Sub SaveAsValues()
Dim ws As Worksheet


For Each ws In Worksheets
ws.UsedRange = ws.UsedRange.Value
Next ws

ThisWorkbook.SaveAs "Z:\Collateral Monitoring\Daily\LMM - " & Format(Date, "dd mmmm yyyy")
End Sub

 

[Fluff]

Try recording a macro of you saving a file with a password & see what you get