Hi, hahmed,

maybe use the macro enabled format xlsm for saving:
ActiveWorkbook.SaveAs Filename:="O:\QA Files\Pending Review\" & Range("D12") & "_" & "BagGla" & "_" & Range("D6") & "_" & Format(Now(), "YYYYMMDDhhmmss") & ".xlsm", FileFormat:=52
You may also try using xlsb with FileFormat 50.

Ciao,
Holger