Save file by date

I'm trying to save the file by report name, location and date. All this information comes out of cells.


here is the code, couldn't find the blue box everyone puts their code in

Private Sub SaveSend_Click()
     'Saves filename as value of A1 plus the current date
     
    Dim newFile As String, fName As String
     'Center location
    fName = Range("c4").Value & "  " & Range("b2").Value & " " & Range("f4").Value
         
    newFile = fName
    
    ChDir _
    "M:\Cir at a Glance\Down Route Report"
    ActiveWorkbook.SaveAs Filename:=newFile
    ChDir _
    "M:\Copy of Cir at a Glance\Down Route Report\"
    ActiveWorkbook.SaveAs Filename:=newFile
     
End Sub

cell F4 has the date in it but I know why it wont work because of 10/02/08 "/" it changes the file path, how do I format the date to only show 100208 on the file name

I think the date in c4 is stored as text. Assuming that's true, then

Private Sub SaveSend_Click()
    Dim sName As String
    
    sName = Range("c4").Value & " " & Range("b2").Value & " " & Format(CDate(Range("f4").Value), "mmddyy")
    ActiveWorkbook.SaveAs Filename:="M:\Cir at a Glance\Down Route Report\" & sName
    ActiveWorkbook.SaveAs Filename:="M:\Copy of Cir at a Glance\Down Route Report\" & sName
End Sub

If you fix it so it's a true date, then

Private Sub SaveSend_Click()
    Dim sName As String
    
    sName = Range("c4").Value & " " & Range("b2").Value & " " & Format(Range("f4").Value, "mmddyy")
    ActiveWorkbook.SaveAs Filename:="M:\Cir at a Glance\Down Route Report\" & sName
    ActiveWorkbook.SaveAs Filename:="M:\Copy of Cir at a Glance\Down Route Report\" & sName
End Sub