Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Sheets(Array("Лист2", "Лист3")).Select
    Sheets("Лист2").Activate
    With ActiveWorkbook.Sheets("Лист2").Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
    With ActiveWorkbook.Sheets("Лист3").Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
End Sub

Private ПереходНаРучнойРежим()
    'Переключить на ручной подсчет формул
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = False
End Sub

Private Sub Workbook_Open()
    'Переключить на ручной подсчет формул
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = False
End Sub

Public Function GetNumbers(TargetCell As Range) As String
...
End Function