Formato fecha y texto macro

Necesito ayuda en la siguiente macro por favor,
Me toma el dato de "J14" que es una fecha y solo me funciona si esta fecha esta en formato texto y necesito que que cree la hoja en formato fecha (dd-mm-aa) por que tengo que ir creando pestañas con el dato de fecha que va variando y me crea un montón de pestañas con nombre de la pestaña en texto y no hay quien se aclare con los números que me aparecen por que son fechas en formato texto y necesito las pestañas con dd-mm-aa espero haberme explicado bien :
Sub CREAPESTANACONFECHA()
CREAPESTANACONFECHA Macro
Dim Hoja As String
Dim i As Integer
Dim tmp As Boolean
Sheets("TOTAL DIFERENCIAS").Select
Hoja = Range("J14").Value
Range("A4:G500").Select
Selection.Copy
Range("A1").Select
For i = 1 To Sheets.Count
If Sheets(i).Name = Hoja Then
tmp = True
End If
Next i
If tmp = False Then
Sheets.Add
ActiveSheet.Name = Hoja
End If
Sheets(Hoja).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Gracias.
Valorare bien