Sub name()

End Sub
Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'

'
    ActiveSheet.ChartObjects("Äèàãðàììà 25").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = Range("W8")
    ActiveChart.Axes(xlValue).MaximumScale = Range("W7")
End Sub

Sub ПокраскаЯчееквНужныйЦветПоУсловию()
    Dim iCell As Range
    With ThisWorkbook.Worksheets(1)
        If Not .ProtectContents Then
            Application.ScreenUpdating = False
            For Each iCell In .Range("A1:C300")
                Select Case iCell
                    Case Is > 10
                        iCell.Interior.Color = vbRed
                    Case Is < 10
                        iCell.Interior.Color = vbBlue
                    Case Else
                        iCell.Interior.Color = vbBlack
                End Select
            Next
            Application.ScreenUpdating = True
        Else
            MsgBox "Рабочий лист защищён", vbCritical, ""
         End If
    End With
End Sub