Solved: Share a workbook without a prompt

[Poundland]

Guys,

I need your help once again, I have written some code to share a workbook, but my code asks for a prompt each time.
How can I modify the code so that it will simply overwrite the saved workbook with the shared workbook without prompting the user.

[VBA]With ActiveWorkbook
.KeepChangeHistory = True
.ChangeHistoryDuration = 30
End With
ActiveWorkbook.SaveAs Filename:= _
"I:\H925 Buying\BuyingTeamsALL\New Essentials Availability Report\2008-2009\07) July 2008\Essentials Availability Report 3007.xls" _
, AccessMode:=xlShared[/VBA]

Thanks in advance for your swift response.

[Oorang]

[VBA]Application.DisplayAlerts = False
'Your code here.
Application.DisplayAlerts = True[/VBA]