Hey Friends

following code not working, getting error in highlighted part,

Private Sub CommandButton7_Click()
    Application.DisplayAlerts = False
    Sheets("Inventory").Select
    Sheets("Inventory").Copy
    ChDir "E:\"
    ActiveWorkbook.SaveAs Filename:="E:\Inventory & " - " & Format(Now,"dd-mm-yyyy")&.xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
    ActiveWindow.Close
    Sheets("Welcome").Select
    ActiveWindow.Close
    Range("F18").Select
    ActiveWorkbook.Save
    Sheets("Welcome").Select
    MsgBox " Inventory File Sucessfully Exported on Your Local Disk E:\ ", vbInformation, "[email protected]"
End Sub
Please suggest me how to fix this.

Thanks in advance
Sagar007

Thanks in advance