Hi,

I currently have this bit of code to save a new workbook...

    ChDir "S:\Trading\Users\Wigan Office\Abelson Running Ball Schedule"
    ActiveWorkbook.SaveAs Filename:= _
        "S:\Trading\Users\Wigan Office\Abelson Running Ball Schedule\" & Range("G1").Value & " Running Ball Rota.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
I want to add a bit more to password protect the workbook. Can anyone please help?

Thanks.