VB to save to file of current date

I have this code that saves the sheet as a pdf document and it works perfect for the most part, I just can't figure out how to get it to save to the folder i need it to. The problem is that i need it to save to a folder that has the current date in it. The folders are already created so i don't need it to create the folder just save in it. the path would be for example G:\Everybody\Daily Reports\2-17-15\rawdata.pdf How would i modify this code to do that? Thanks for the help!

Sub SelectedSheetsToPDF()
Dim fldrname, Filename As String
fldrname = Format(Now, "mm-dd-yy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="G:\Everybody\Daily Reports\2-17-15\rawdata.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=True, _
        OpenAfterPublish:=True
        
End Sub

Maybe?

Sub sroot()
Dim fldrname, Filename As String
fldrname = Format(Now, "mm-dd-yy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="G:\Everybody\Daily Reports\" & Format(DateAdd("d", 0, Date), "M-DD-YY") & "\rawdata.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=True, _
        OpenAfterPublish:=True
        
End Sub

That worked great thank you!

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum rules and mark this thread as solved. Use the link below for guidance.

http://www.excelforum.com/forum-rule...rum-rules.html