workBook.Saveas

[PreHistoricMan]

Private Sub CmdSaveWrkBk_Click()
Application.EnableEvents = False

Dim fname As String


fname = "Production" & " " & Sheets("Management Sheet").Range("I4").Value
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=52

Application.EnableEvents = True
End Sub


I get error code 1004 why???? please help

[RaulRodriguez]

If you are not worry about the file overriding the current file, use this at the begining of the code:
Application.DisplayAlerts = False

Then set it back to true at the end

[PreHistoricMan]

Thank you for your response.

Tried, but still same problem.

[shg]

Duplicate post. Please don't do that.

[PreHistoricMan]

Appologies.......First time user....Still green at this.