Files_0ut = Application.GetOpenFilename(MultiSelect:=True)

Files_0ut = Application.GetOpenFilename(MultiSelect:=True)

Files_0ut = Application.GetOpenFilename("Files(*.*),*.*", 1, "Выбрать фото или Word файлы", , True)
If VarType(Files_0ut) = vbBoolean Then
Exit Sub
End If

Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim avFiles
    'по умолчанию к выбору доступны текстовые файлы
    avFiles = Application.GetOpenFilename _
                ("files(*.*),*.*", 1, "Выбрать текстовые  файлы", , True)
    tip = FSO.GetExtensionName(avFiles)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If

avFiles = Application.GetOpenFilename _
                ("files(*.*),*.*", 1, "Выбрать  файлы", , True)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If

.Attachments.Add "\\Персональная\-  РАБОЧИЕ  -\Smart Skid\Скв. 722\2017\strFileName"

Sub Отправка_по_Outlook()

strFileName = _
    Dir("\\Персональная\-  РАБОЧИЕ  -\Smart Skid\Скв. 722\2017\Скв. 722*.xls*") 'Проверка наличия файла

Set objOutlookApp = CreateObject("Outlook.Application")
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
    
    sTo = "3.14ston@mail.ru"   
    sSubject = "Smart Skid.Скв. 722"    

    'создаем сообщение
    With objMail
        .To = sTo 'адрес получателя
        .Subject = sSubject 'тема сообщения
        .Attachments.Add (strFileName)
        .Display 
    End With
 
    Set objOutlookApp = Nothing: Set objMail = Nothing
    Application.ScreenUpdating = True
End Sub

 MyPos = InStrRev(Range("A1"), "\", -1, vbTextCompare)  
    myPos_1 = InStr(2, Range("A1"), "ЛЭС", vbTextCompare)
    myPos_2 = MyPos - myPos_1
    myWords = Mid(Range("A1"), myPos_1, myPos_2)

Sub Удал_Лишнее()
Dim lngN As Long
For lngN = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   Cells(lngN, 1).Value = Right(CStr(Cells(lngN, 1).Value), InStr(CStr(Cells(lngN, 1).Value), "\"))
Next lngN
End Sub

Selection.WholeStory

=СУММ(ЕСЛИОШИБКА(--ПСТР(B2:B7;1;ПОИСК("/";B2:B7)-1);0))&"/"&СУММ(ЕСЛИОШИБКА(--ПСТР(B2:B7;ПОИСК("/";B2:B7)+1;9);0))

Sub Макрос5()
    Cells.Find(What:="10:00", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True).Activate
End Sub

Sub example2()
Dim x As Range
    For Each x In ActiveSheet.UsedRange.Cells
        If x.Value = "promo" Then
            x.Offset(-1, 0).Interior.ColorIndex = 3
        End If
    Next x
End Sub

Sub qq()
    Dim sh As Worksheet, ListObj As Object, ListCol As Object, sOrder As Long
    Set ListObj = ActiveCell.ListObject
    sOrder = 1
'    For Each sh In Worksheets
'        For Each ListObj In sh.ListObjects
            Set ListCol = ListObj.ListColumns(1)
            Call ww(ListObj, ListCol, sOrder)
'        Next
'    Next
End Sub
Sub ww(ListObj As Object, ListCol As Object, sOrder As Long)
    With ListObj.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ListCol.Range, SortOn _
        :=xlSortOnValues, Order:=sOrder, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub