Hi Kris;

You can use the following call

Columns("A:A").Select
Selection.NumberFormat = "d/mm/yyyy"


Thanks,

Greg



-----Original Message-----
Hi,

I'm automating the layout task of a specific excel
workbook in VBA
One of the tasks is to create subtotals whenever the
first column containing
dates change. These dates are formatted in d/mm/yyyy.

Getting the subtotals is no problem , it inserts rows
with the text

Totaal <date

but <date is now formatted as m/d/yyyy.


When I make the subtotals myself using the menu
Data ..subtotals there is no
problem. Then the date is in the same format, d/mm/yyyy.

When I record this action as a macro and execute the
recorded macro, I again
get the dates formatted in the wrong format (m/d/yyyy).


I have a dutch version of excel.
Application.international(xldateorder) gives 1, meaning
d/m/yyyy...

How do I get the subtotal so that the date remains in our
local format and
doesn't change to us format.

Regards,

Kris


.