Sub Master()
Call 1
Call 2
Call 3
Call 4
End Sub

If Application.IsError(Range("A1").Value) = True Then 
   'код
Else
   'код
End If

Sub testsub()
    FilePath = Cells(1, 1) 
    FilenameInput = Cells(1, 2)
    Workbooks.Open Filename:=FilePath, _
        UpdateLinks:=0
'код код код код разные действия
    Workbooks(FilenameInput).Close (True)
End Sub

Sub n()
For i = 1 To 10
Cells(i, 2) = Application.WorksheetFunction.CountIf([a1:a10], Cells(i, 1))
Next i
End Sub

Sub даты()
Dim ws As Worksheet
Set ws = лист14
код код код
End Sub

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub DownloadIndex()
лист7.Activate
Dim a
a = Date
filesrc = Cells(3, 86)
dlpath = Cells(3, 85)
Filename = Cells(3, 87)
URLDownloadToFile 0, filesrc, dlpath & Filename, 0, 0
Cells(3, 88) = "файл скачан " & a
End Sub

Sub DownloadFile()
    Call CallDownload("http://www.excel-vba.ru/files/book.xls", "Книга1.xls") 'вызываем скачивание файла
End Sub

Sub zzz()
    НомерСтроки = 2
    Do While Cells(НомерСтроки, 1) <> "стоп"
    If Cells(НомерСтроки, 1) <> "" Then
        Cells(НомерСтроки, 3) = Cells(НомерСтроки, 2)
    End If
    НомерСтроки = НомерСтроки + 1
    Loop
End Sub