1) In the code below I am trying to open an excel file, convert it
into pdf, and close the excel file. When I run this macro I keep
getting prompted to replace the current pdf file and I want to
overwrite that as the pdf file needs to be replaced everyday. The
Application.DisplayAlerts are not doing anything. Any suggestions to
stop this prompt?

2) Also, I would like to save the pdf without going through the save as
prompt. Initially, I had a code that would open the excel file and just
save it as pdf in a predetermined folder. But when I would go to open
the pdf file I would get an error from adobe saying that the file
format was incorrect. Any ideas?

Any help is greatly appreciated. Thank you in advance.

This is the code I am using now:

ChDir "C:\Documents and Settings\43202328\Desktop\PDF
Ratesheets\InternetRates\"
Workbooks.Open Filename:="C:\Documents and
Settings\43202328\Desktop\PDF Ratesheets\InternetRates\CABROK.XLS"


On Error Resume Next
For i = 1 To 9
Application.ActivePrinter = "Adobe PDF on Ne0" & i & ":"
If Err.Number = 0 Then Exit For
Err.Clear
Next

Application.ActivePrinter = "Adobe PDF on Ne0" & i & ":"
Windows("CABROK.xls").Activate
Application.DisplayAlerts = False
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne0" & i & ":", Collate:=True
Windows("CABROK.xls").Activate
Application.DisplayAlerts = True
ActiveWindow.Close


End Sub