Option Explicit
Dim outFolder: outFolder = "C:\TEST\"
Dim inFolder: inFolder = "\\Server"
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim WSNetwork: Set WSNetwork = CreateObject("WScript.Network")
 
If oFSO.FolderExists(outFolder) AND oFSO.FolderExists(inFolder) Then
  CopyFileOnMask outFolder, "exe txt rar" ' каталог и маски файлов для копирования
  WScript.Echo "Готово."
Else
  WScript.Echo "Не найден один из путей " & outFolder & " " & "ИЛИ" & " " & inFolder
End If
WScript.Quit(0)
 
Function CopyFileOnMask(s, sMask)
  Dim oFld, iFld, arrMask, v, i, num
  num = 0
  Set oFld = oFSO.GetFolder(s)
  Set iFld = oFSO.GetFolder(inFolder)
  arrMask = Split(LCase(sMask), " ")
  For Each v In oFld.Files
    For i = LBound(arrMask) To UBound(arrMask)
      If LCase(oFSO.GetExtensionName(s & "\" & v.Name)) = arrMask(i) Then
        v.Copy(iFld & "\" & v.Name), True
      num = num + 1
      'oFSO.CopyFile v, iFld & v.Name, True
        Exit For
      End If
    Next
  Next
  If Err.Number Then
WScript.Echo "Обновление прошло с ошибками. Сообщите об этом администратору."
else
WScript.Echo "Обновление прошло успешно. Скопировано " & num & " файлов."
Err.Clear
End if
End Function

Sub Calcul ()  
    Application.Calculation = xlAutomatic 
    Calculate   
End Sub

  'Больше не обновляем страницы после каждого действия
  Application.ScreenUpdating = False
 
  'Расчёты переводим в ручной режим
  Application.Calculation = xlCalculationManual
 
  'Отключаем события
  Application.EnableEvents = False
 
  'Не отображаем границы ячеек
  If Workbooks.Count Then
      ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False
  End If
 
  'Отключаем статусную строку
  Application.DisplayStatusBar = False
 
  'Отключаем сообщения Excel
  Application.DisplayAlerts = False
 

'Включаем обновление экрана после каждого события  
  Application.ScreenUpdating = True
 
  'Расчёты формул - снова в автоматическом режиме
  Application.Calculation = xlCalculationAutomatic
 
  'Включаем события
  Application.EnableEvents = True
 
  'Показываем границы ячеек
  If Workbooks.Count Then
      ActiveWorkbook.ActiveSheet.DisplayPageBreaks = True
  End If
 
  'Возвращаем статусную строку
  Application.DisplayStatusBar = True
 
  'Разрешаем сообщения Excel
  Application.DisplayAlerts = True

Application.Run "'C:\REPORTS\REP.xls'!MACRO"

Sub Call()
Workbooks.Open ThisWorkbook.Path & "\REP.xls"
Application.Run "REP.xls!Module1.MACRO": Workbooks("REP.xls").Close True 'сохраняем изменения; False - не сохраняем
End Sub

lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

Sub Copy_To_Last_Cell()
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Select
End Sub

Sub zamena()
'
    Cells.Replace What:="001", Replacement:="AAA", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="002", Replacement:="BBB", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="003", Replacement:="CCC", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="004", Replacement:="DDD", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Sub MKR()
Dim wb As Workbook
Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
 Application.Run "REPORT_2.xls!reportOpen"
   Windows("REPORT_2.xls").Close False 
End Sub

Sub MKR()
Dim wb As Workbook
Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
 Application.Run "REPORT_2.xls!repoptOpen"
  Application.Run "REPORT_2.xls!Main2"
   Windows("REPORT_2.xls").Close False
End Sub  

Sub MKR()
Dim wb As Workbook
Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
 Application.Run "REPORT_2.xls!repoptOpen"
   Windows("REPORT_2.xls").Close False
     Set wb = Workbooks.Open("P:\SQL_REPORTS\REPORT_2.xls")
      Application.Run "REPORT_2.xls!Main2"
       Windows("REPORT_2.xls").Close False
'Application.Run "'REPORT_2.xls'!Main2" или с  апострофом
End Sub

=ЕСЛИ(B1>0;$G$1;"")
 

Sub plan()     
 Application.Workbooks.Open ("Z:\PPI2\Doc\ежедневные справки\План.xls") 
   Application.CalculateBeforeSave = False   
    Application.Workbooks("План.xls").Close    
     Application.CalculateBeforeSave = True   
       End Sub

=Лист1!A1
 

=ЕСЛИ(A1>0;A1;"")