Saving Workbook in newly created directory

I am trying to have the user hit a button and save the workbook in a newly created directory. Currently it creates the new workbook and the new directory with the correct names, however the workbook is not in the newly created directory.

Below is the code. Any suggestions?

Sub RFIFORMSave()

Global rfinum As Integer    'RFI number counter or variable

    
    MkDir ("c:\sgreni\AnyJob\" & "some_RFI_" & rfinum)
    ChDir ("c:\sgreni\AnyJob\" & "some_RFI_" & rfinum)
    ActiveWorkbook.SaveAs Filename:="c:\sgreni\AnyJob\" & "some_RFI_" & rfinum

    
    this code should include after MkDir and before ChDir:


    chDirive file path! :)

        
End Sub