creating workbook

[MAMIBUSSOL]

I use this code to create a new workbook

Sub ABBOTS()
    Workbooks.Add
    ChDir "C:\Documents and Settings\Admin\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Admin\Desktop\WAGES.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

if the file doesn't exist, works as planned, however if the file being created exists I get a replace error message, Is there any way to just create the file without user entry

 

[Trevor G]

Try either switching the warnings off or look to delete the workbook first with a Kill statement

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> CheckBook1()<br>Application.DisplayAlerts = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#007F00">'Your code</SPAN><br><br>Application.DisplayAlerts = <SPAN style="color:#00007F">True</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[VoG]

Try

Sub ABBOTS()
    Workbooks.Add
    ChDir "C:\Documents and Settings\Admin\Desktop"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Admin\Desktop\WAGES.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Application.DisplayAlerts = True
End Sub