Dim w, sName$, k&
    
    Set w = Workbooks.Add.Worksheets(1)
    With ThisWorkbook.Worksheets
    For k = 1 To .Count
        With .Item(k)
            sName = ReplaceIllegalCharFromSheetName( .Cells(3, 2).Value2 )
            
            .UsedRange.Copy w.Cells(1, 1)
            w.SaveAs WeeklyDir & "SalesData" & sName & ".txt", xlTextWindows
            w.UsedRange.Delete
        End With
    Next k
    End With
    w.Parent.Close False
    Set w = Nothing
    Application.CutCopyMode = False


' ************************************************
Function ReplaceIllegalCharFromSheetName$(ByVal s$)
    Const S_ILLEGAL$ = """<>|", S_REPLACE$ = "_"
    Dim k&
    
    For k = 1 To Len(s)
    If InStr(1, S_ILLEGAL, Mid$(s, k, 1)) <> 0 Then _
        Mid$(s, k, 1) = S_REPLACE
    Next
    
    ReplaceIllegalCharFromSheetName = s
End Function