couldn't you have just used the first one to do all three by changing the
format

myDay = Format(Date, "dd")
myMonth = Format(Date, "mm")
myYear =Format(Date, "yy")




--
Don Guillett
SalesAid Software

"PaulC " wrote in message
...
All I want to do is display today's date in 3 separate boxes for Day,
Month and Year.

I have tried the following code to split the date into 3 strings:

Dim TodaysDate As Date
Dim strDate As String
Dim myDay As String
Dim myMonth As String
Dim myYear As String

TodaysDate = Format(Date, "dd/mm/yy")
strDate = CStr(TodaysDate)
myDay = Left(Cells(strDate, 1), 2)
myMonth = Mid(Cells(srtDate, 1), 4, 2)
myYear = Mid(Cells(srtDate, 1), 7, 2)


However, it says there is a type mismatch on the line:
myDay = Left(Cells(strDate, 1), 2).

There must be a simple solution but I can't find it.

Paul


---
Message posted from http://www.ExcelForum.com/