“VBA Usuń Usuń znaki nazwy pliku Ileagal” Kod odpowiedzi

VBA Usuń Usuń znaki nazwy pliku Ileagal

Private Function ValidWBName(Arg As String) As String
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Pattern = "[\\/:\*\?""<>\|]"
        .Global = True
        ValidWBName = .Replace(Arg, "")
    End With
End Function