Workbook.Saveas Filename issue

[gvansly1]

Hey All:
Total newb to macros question, so please be patient, trying to learn
I recorded a macro that opens and formats a worksheet then saves as a .csv and .xlsx in a specific file path. I sandwiched this recoded macro inside an Application.FileDialog.
The problem occurs when running the macro more than once with different named worksheets it is trying to overwrite the previously saved worksheets, because the ActiveWorkbook.Saveas Filename:= code is what was recorded in the macro
I’ve search everywhere for a solution with no luck. Any ideas? I have attached a link below, hopefully I linked it correctly.
https://www.dropbox.com/s/67wv969mrcrgzmz/Code.txt?dl=0

 

[mole999]

post the code between codetags here

 

[gvansly1]

Sub Format_The_WOSY()
    Dim xlFileName As String
    Dim fd As Office.FileDialog
    Dim wb As Workbook

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd

        .AllowMultiSelect = False
        .Title = "Please select the latest WOSY file"
        .Filters.Add "Excel", "*.xls*"
        .Filters.Add "All", "*.*"

        If .Show Then
           xlFileName = .SelectedItems(1)
        Else
           'if user pressed CANCEL - exit sub
           MsgBox "User pressed CANCEL"
           Exit Sub
        End If

    End With

    'Tries to open workbook with choosen file name
    On Error Resume Next
    Set wb = Workbooks.Open(xlFileName)
    On Error GoTo 0

    'If we can't find workbook with choosen path, exit Sub
    If wb Is Nothing Then
        MsgBox "Can't find file"
        Exit Sub
    End If
    
        'Find and replace here
    Cells.Select
    Selection.Replace What:=",", Replacement:=", ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
        'Format date here
    Columns("N:N").Select
    Selection.NumberFormat = "[$-10484]yyyy-mm-dd;@"
    Selection.Copy
    
        'Copy the date format and paste to the other Date columns
        
        Columns("P:P").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    
        Columns("R:R").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
             
             
        Columns("T:T").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
                 
    Application.CutCopyMode = False
    
    'Save to network library as .xlxs and .csv formats
    
            ChDir "C:\WOSY"
                ActiveWorkbook.SaveAs Filename:="C:\WOSY\02-09-18 WOSY All.xlsx", FileFormat _
                 :=xlOpenXMLWorkbook, CreateBackup:=False 'change path here
                    Cells.Select
                    
            ChDir "C:\WOSY\CSV"
                ActiveWorkbook.SaveAs Filename:="C:\WOSY\CSV\02-09-18 WOSY All.csv", _
                    FileFormat:=xlCSV, CreateBackup:=False 'change path here
                        Cells.Select
    
      
        'close workbook without saving changes
    wb.Close SaveChanges:=False
    Set wb = Nothing

End Sub

 

[gvansly1]

With no responses I'm guessing my question was not clear or just a stupid question to begin with.