Sub CreateTierPricing()
ActiveWorkbook.SaveAs Filename:="Z:\EXCEL\PriceList\ASMPL" & Format(Date, "mm-dd-yy") & Format(Time, "hhmm") & " .xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="\\Swsvr\shiloh\IMPORTS\TierP\" & "Tier_Pricing.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
MsgBox ThisWorkbook.Path & "\" & ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:="Z:\EXCEL\PriceList\ASMPL" & Format(Date, "mm-dd-yy") & Format(Time, "hhmmss") & " .xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
End Sub
Cheers
Dave