Replace(Replace(Replace(Replace(Replace(Replace(Cells(1, 1).Value, " ", "_"), "/", "_"), "(", ""), ")", ""), "-", "_"), "!", "")

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    On Error Resume Next
    ActiveWorkbook.Save
    ActiveWorkbook.SaveCopyAs "X:\" & ActiveWorkbook.Name & " для Всех.xlsm"
    On Error GoTo 0
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

Sub test()
xDate = Mid(Date, 7, 4) & "_" & Mid(Date, 4, 2)
mySourcePath = "C:\"
    
    
Set MyObject = CreateObject("Scripting.FileSystemObject")
Set mySource = MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each myFile In mySource.Files
    If myFile Like mySourcePath & "MM_Alloc_" & "*" & xDate & ".xls" Then

        Workbooks.Open Filename:=myFile, UpdateLinks:=0

    End If
Next
End Sub

Sub Mail_Outlook_With_Signature_Html()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2007
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim SigString As String
    Dim Signature As String
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "<H3><B>Dear Customer</B></H3>" & _
              "Please visit this website to download the new version.<br>" & _
              "Let me know if you have problems.<br>" & _
              "<A HREF=""http://www.rondebruin.nl/tips.htm"">Ron's Excel Page</A>" & _
              "<br><br><B>Thank you</B>"
 
 
    SigString = "C:\Documents and Settings\" & Environ("username") & _
                "\Application Data\Microsoft\Signatures\" & Environ("username") & ".htm"
 

 
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
 
    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & Signature
        .Display
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
 
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function