Sub Замена()
    Sheets("99 (2)").Select
    Cells.Replace What:="99", Replacement:="2", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (3)").Select
    Cells.Replace What:="99", Replacement:="3", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (4)").Select
    Cells.Replace What:="99", Replacement:="4", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (5)").Select
    Cells.Replace What:="99", Replacement:="5", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (6)").Select
    Cells.Replace What:="99", Replacement:="6", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (7)").Select
    Cells.Replace What:="99", Replacement:="7", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (8").Select
    Cells.Replace What:="99", Replacement:="8", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (9)").Select
    Cells.Replace What:="99", Replacement:="9", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (10)").Select
    Cells.Replace What:="99", Replacement:="10", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (11)").Select
    Cells.Replace What:="99", Replacement:="11", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (12)").Select
    Cells.Replace What:="99", Replacement:="12", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (13)").Select
    Cells.Replace What:="99", Replacement:="13", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (14)").Select
    Cells.Replace What:="99", Replacement:="14", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (15)").Select
    Cells.Replace What:="99", Replacement:="15", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (16)").Select
    Cells.Replace What:="99", Replacement:="16", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (17)").Select
    Cells.Replace What:="99", Replacement:="17", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (18)").Select
    Cells.Replace What:="99", Replacement:="18", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (19)").Select
    Cells.Replace What:="99", Replacement:="19", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("99 (20)").Select
    Cells.Replace What:="99", Replacement:="20", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False