Sub Krep_Kospit()
    Dim Cells As Range
        For Each Cells In Range("a1:d5")
        If Cells = 10 Then Cells.Interior.Color = 65536
    Next Cells
End Sub

Sub Макрос1()
    ib = InputBox("Введите число для выделения")
    For Each c In Selection
        If c.Value = CDbl(ib) Then
            rg = rg & c.Address & ", "
        End If
    Next
    rg = Left(rg, Len(rg) - 2)
    Range(rg).Select
End Sub

Sub Select_10() 'выделить в выбранном диапазоне ячейки со значением 10
    Dim rSel As Range, rCell As Range
    For Each rCell In ActiveWindow.RangeSelection
        If rCell = 10 Then
        If rSel Is Nothing Then
            Set rSel = rCell
        Else
            Set rSel = Union(rSel, rCell)
        End If
        End If
    Next rCell
    rSel.Select
End Sub

Sub ertert()
On Error Resume Next
With ActiveSheet.UsedRange
    .Replace 10, True, xlWhole
    .SpecialCells(2, 4).Select
End With
End Sub

Sub ertert()
    On Error Resume Next
    With ActiveSheet.UsedRange
    .Replace What:=10, Replacement:=True, LookAt:=xlWhole
    .SpecialCells(xlCellTypeConstants, xlLogical).Select
    End With
End Sub