Joe,
I'll paste the whole MACRO here for you. I rechecked the whole MACRO and at
the point before SAVING the CSV file, I manually SAVEAS test.csv and then run
the MACRO to let it save the ToCAV0408m.csv -- then I open the two files with
NOTEPAD and in the test.csv the date is 30/04/2008 and in the ToCAV0408m.csv
the date is 4/30/2008 even though on the still open file it displays
30/04/2008.
Would it help you if I send the respective files?
Also to note is that in order to get the correct month, on the INPUT I have
to input 04/01/2008 (mm/dd/yyyy) in order to get the EOMONTH to work. Maybe
there is a connection there?????
If you have other suggestions to streamline this MACRO....thanks
Here is the whole MACR
-----------------------------------------------------------------------------------------
'
' Meshukamim Macro
' Meshukamim monthly payroll
'
' Keyboard Shortcut: Ctrl+m

'   Step One:   Open
\\shekel-srv\public\Personel\2008\MonthlyMeshukamimWorkBook.xls
'   Step Two:   Press Ctrl+m
'   Step Three: Open Cav and prepare Journal

'   Don't show what's happening
   Application.ScreenUpdating = False
   
'

       Dim Message, Title, Default, Myvalue
   
   Message = "Enter Overhead Value i.e. 15.07"   ' Set prompt.
       Title = "Input Box"                       ' Set title.
       Default = "15.07"                         ' Set default.
       
       ' Display message, title, and default value.
       Myvalue = InputBox(Message, Title, Default)

'   Input Formular in Column O - (=F1+Myvalue input i.e. 15.07)

   Range("O1").Select
   ActiveCell.FormulaR1C1 = "=RC[-9]+" & Myvalue
   Selection.Copy
   Range(Selection, Selection.End(xlDown)).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False

'   Change Sheet Name to "payroll"
   ActiveSheet.Select
   ActiveSheet.Name = "Payroll"
   
'   Format Column Q for date
   Range("Q1").Select
   Selection.NumberFormat = "dd/mm/yyyy"

'   input payroll month
   
   Range("S1").Select
   
'        Dim Message, Title, Default, Myvalue
   
   Message = "Enter Payroll Month date i.e. 05/01/2008 for May 2008"   '
Set prompt.
       Title = "Input Box"                                             '
Set title.
       Default = "05/01/2008"                                          '
Set default.
       
       ' Display message, title, and default value.
       Myvalue = InputBox(Message, Title, Default)
   
   ActiveCell.FormulaR1C1 = Myvalue
   
   
'   Enter EndOfMonth formular and copy down
   Range("Q1").Select
   ActiveCell.FormulaR1C1 = "=EOMONTH(R1C19,0)"
   Selection.Copy
   ActiveCell.Offset(0, -2).Range("A1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(0, 2).Range("A1").Select
   Range(Selection, Selection.End(xlUp)).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
       :=False, Transpose:=False
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
       SkipBlanks:=False, Transpose:=False

'   Column Autofit and delete not-needed Cell
   Columns("Q:Q").EntireColumn.AutoFit
   Range("S1").Select
   Application.CutCopyMode = False
   Selection.Delete Shift:=xlUp
   

'   Save workbook as "payroll.xlsx"
   ActiveWorkbook.SaveAs
Filename:="\\shekel-srv\public\Personel\payroll.xlsx", FileFormat:= _
       xlOpenXMLWorkbook, CreateBackup:=False
       
'   Close active workbook
   ActiveWorkbook.Close
       
'   Open WorkBook
   Workbooks.Open ("\\shekel-srv\public\personel\ToCAV.xlsx")
   
'   Input common Account number in column E
   Range("E1").Select
   ActiveCell.FormulaR1C1 = "5014002"
   Selection.Copy
   Range("E1:E2").Select
   Range(Selection, Selection.End(xlDown)).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   
'   Delete rows with 0 value in column F
   
Dim i, j As Integer

Set starta = ActiveSheet.Range("F1")
lr = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Row

For i = lr To 0 Step -1
       If starta.Offset(i, 0).Value = 0 Then starta.Offset(i,
0).EntireRow.Delete
Next i
   
   
'   Save as CSV report / using mmyy of MyValue and saving directly to
CAV/files
   ActiveWorkbook.SaveAs
Filename:="\\shekel-srv\public\Personel\2008\ToCAV" & Left(Myvalue, 2) &
Right(Myvalue, 2) & "m.csv", FileFormat:=xlCSV
   ActiveWorkbook.SaveAs Filename:="\\cav-new\files\ToCAV" & Left(Myvalue,
2) & Right(Myvalue, 2) & "m.csv", FileFormat:=xlCSV

'Send Email to Corin that file has been transferred

   Dim Filename As String

   Filename = ("\\cav-new\files\ToCAV" & Left(Myvalue, 2) & Right(Myvalue,
2) & "m.csv")

   Dim OutApp As Object
   Dim OutMail As Object

   Set OutApp = CreateObject("Outlook.Application")
   OutApp.Session.Logon
   Set OutMail = OutApp.CreateItem(0)

       With OutMail
           .To = "corinn@shekel.org.il"
           .CC = "eliahuw@shekel.org.il"
           .BCC = "helmutl@shekel.org.il"
           .Subject = Filename & "_" & " òëùéå á "
           .Body = "ëåøéï, àú éëåì òëùéå ìéöåø àú äéåîï á÷å"
           .Send
       End With

   Set OutMail = Nothing
   Set OutApp = Nothing

   With Application
       .ScreenUpdating = True
       .EnableEvents = True
   End With

'   Show again
   Application.ScreenUpdating = True
   
'   Set Workook property to saved so it does not ask and just closes
   ActiveWorkbook.Saved = True
'   Close active workbook
   ActiveWorkbook.Close
'   Quit Excel
   Application.Quit

End Sub
-----------------------------------------------------------------------------------------