Hi,

I am trying to setup the file name as below using specific ranges

I wrote below code to Workbook_BeforeSave()

With Worksheets("Vendor")
FName = .Range("F5").Value
ActiveWorkbook.Name = FName & Format(Date, "ddmmyy") & ".xls"
End With

When I click save as I receive below error:
"Can't assign to read-only property"

Please help