How do I create a macro that will save a workbook to a specific location using a specific name along with the current date and be in a specific format (.xls)?

This is what I have so far:
Private Sub SaveFile_Click()
ActiveDocument.SaveAs Filename:="C:\Documents and Settings\All Users\Shared Documents\VendPerf " _
& Format(Date, "mm-dd-yy"), FileFormat:=56
End Sub

All it does though, is generate an error that says "Cannot run the macro "Vendor Performance.xls'!ThisWorkbook.SaveFile'. The macro may not be available in this workbook or all macros may be disabled."

I have verified that the macros for the workbook are running. Do I have this worded wrong or is it in the wrong place? Thanks!