Como agregar un rango más al guardado

Dim nomFich as string
     nomFich = sheets("Hoja1").Range("C5") &  sheets("Hoja1").Range("E3")
ThisWorkBook. Save as nomFich

Gracias.
La parte del E3 es la fórmula =ahora(), donde pone la decha y hora del ordenador
Lo que quiero conseguir es que al grabar el archivo, se guarde con el nombre que aparece en el rango C5 seguido del rango E3, pero al ser una fecha unida de xxxx\xx \xx, el ordenador me deniega la opción, ya le he cambiado al formato xxxx-xx-xx pero me sigue dando el error.
También he probado con:
Dim NombreArch as String
NombreArch=Range("E5") & Range("C5")
ActiveWorkBook.SaveAs NombreArch
End Sub
Pero obtengo el mismo resultado negativo.
Se te ocurre algo.
Gracias