=ЕСЛИ(C5="";"ошибка";C6)

Sub start()
     x1 (1)
End Sub

Sub x1(ByRef a As Integer)
    MsgBox (a)
End Sub

WBname = ActiveWorkbook.Name
WBlist = ActiveWorkbook.ActiveSheet.Name
WBCellCol = ActiveCell.Column

Dim wb As Workbook
For Each wb In Workbooks
    if Wb.name <> thisworkbook.name then 
             LrOW1 =  Workbooks(wb.name).Worksheets("Лист1").Cells(Rows.Count, Index1.Column).End(xlUp).Row
             MsgBox LrOW1
    end if
Next

   LrOW1 =  Workbooks("Книга2").Worksheets("Лист1").Cells(Rows.Count, Index1.Column).End(xlUp).Row
   MsgBox LrOW1

Call Имя_модуля.Имя_процедуры(функции)

maxs = k - 1
gap = k - 1
Do While gap >= 1
   If gap >= 1 Then
   i = 1
      Do While (i - 1 + gap) < maxs
         If arr_X(i, 1) > arr_X(i + gap, 1) Then  
            For j = 1 To 5
               buf = arr_X(i, j)
               arr_X(i, j) = arr_X(i + gap, j)
               arr_X(i + gap, j) = buf
            Next
         End If
      i = i + 1
      Loop
      If (i + gap) >= maxs Then
         If gap = 1 Then
            gap = 0
         End If
         If gap = 2 Then
              gap = 1
         End If
         gap = CLng(gap / 1.24733095010398)
      End If
Loop

 If l = 10 And k = 17 Then
' Ничего не делаем
Else

Application.Wait (Now + TimeValue("0:00:02"))  

Sub Search()
Dim xFactor As Boolean
Dim strDirPath, strMaskSearch, strFileName As String
strDirPath = "E:\test\" 'Папка поиска
strMaskSearch = "*.txt*" 'Маска поиска
Do While xFactor = False
    'Ожидание 5 сек
    Application.Wait (Now + TimeValue("0:00:05"))
    'Получаем первый файл соответствующий шаблону
    strFileName = Dir(strDirPath & strMaskSearch)
    Do While strFileName <> "" 'До тех пор пока файлы "не закончатся"
        If strFileName = "Имя вашего документа.txt" Then
         xFactor = True
        End If
        strFileName = Dir 'Следующий файл
    Loop
Loop
End Sub

If Left(ThisWorkbook.Sheets(1).[A1].Formula, 1) <> "=" Then
    Exit Sub
Else
        i = 0
        x = ThisWorkbook.Sheets(1).[A1].Formula
        Do While InStr(x, "+") <> 0
                n = InStr(x, "+")
                x = Right(x, Len(x) - n)
        i = i + 1
        Loop
        MsgBox (i + 1)
End If