hernandj
02-25-2013, 06:44 AM
Thanks in advance for helping.
This is my code. Very simple. I want the user to be able to close without the option or message to save". I want to simply close with no option, i.e. click on close and go away
On Error GoTo 0
Cells.Select
Selection.Delete Shift:=xlUp
Workbooks.Open Filename:="\\xxx\Public2\Manufacturing\PMJobs.xls"
Range("Y3:Y3").Select
Selection.AutoFilter
End Sub
Sub auto_close()
ThisWorkbook.Saved = True
ActiveWorkbook.Saved = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
' Workbooks("PMJobs.XLS").Close SaveChanges:=False
This is my code. Very simple. I want the user to be able to close without the option or message to save". I want to simply close with no option, i.e. click on close and go away
On Error GoTo 0
Cells.Select
Selection.Delete Shift:=xlUp
Workbooks.Open Filename:="\\xxx\Public2\Manufacturing\PMJobs.xls"
Range("Y3:Y3").Select
Selection.AutoFilter
End Sub
Sub auto_close()
ThisWorkbook.Saved = True
ActiveWorkbook.Saved = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
' Workbooks("PMJobs.XLS").Close SaveChanges:=False