Try changing this

MyDate = cc.Offset(rowOffset:=0, columnOffset:=-2)

with

MyDate = cc.Offset(rowOffset:=0, columnOffset:=-2).Text

and also, Dim MyDate as String, at the top of the module.

--
Regards,

Juan Pablo González

wrote in message
...
Hi Juan Pablo
The source data is in "Worksheet2" & consists of three
columns. The first is RangeName "MyBaseDate" containing
dates in form "dd,mm,yy" , the second is associated text
and the third is RangName "MyAlarms". In "MyAlarms" some
cells are blank and some contain an identifier to indicate
an alarm is required on the corresponding date in
column1 "MyBaseDate".

The code below populates a two column ListBox with the
date and associated text of each "alarmed" date.

It works ok, but lists the dates in the US
format "mm,dd,yyyy" instead of in the source
format "dd,mm,yy"