Macro: Text Seen As Date

Trouble is two of the sheet names look like dates :02-02 and when it's pasted it comes out like 387502 or 02-Feb. I tried formatting the recording sheet where it gets copied to but with no luck.

Sub UnbilledRevenue()
Dim i As Long
Dim lr As Long
Dim ws As Worksheet
Dim mypath As String
Dim myname As String
Dim excelfile As String
Dim underbilling As Currency
'Application.DisplayAlerts = False

'Turn off screen refresh for speed
Application.ScreenUpdating = False

'*********************************************************
'This will ask for drivedirectory combo
mypath = InputBox("Enter DriveDirectory to copy from.", "Enter drive letter")
'*********************************************************
'Comment
'mypath = d & ":September 2006" ' folder where all excel files reside

'Gets first filename
excelfile = Dir(mypath & "*.xls")........................