максимальное из трех значений

[Тандер]

Есть макрос:

            Sub n()

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Таблица"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    i = 2
    j = 4
    MyValue1 = RandInt(75, 85)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue1
    
    Selection.Find.Execute
    i = 2
    j = 5
    MyValue2 = RandInt(75, 85)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue2
    
    Selection.Find.Execute
    i = 2
    j = 6
    MyValue3 = RandInt(75, 85)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue3

Нужно чтобы в седьмую строку вставляло максимльное значение из этих трех, пытался сделать что-то типа

    Selection.Find.Execute
    i = 2
    j = 7
    MyValue4 = max( MyValue1, MyValue2, MyValue3)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue4

Но не работатет. Как решить данную проблему? Спасибо!

[Тандер]

Есть идеи?

[shanemac51]

а по-русски озвучьте задание

a1=iif(a>b,a,b)
a2=iif(a1>c,a1,c)

у вас же что-то другое(причем тут найти и заменить)

Selection.Find.Execute
    i = 2
    j = 7
 ''''   MyValue4 = max( MyValue1, MyValue2, MyValue3)
a1=iif(MyValue1>MyValue2,MyValue1,MyValue2)
a2=iif(a1>MyValue3,a1,MyValue3)

    Selection.Tables.Item(1).Cell(i, j).Range.Text = a2

[Тандер]

Спасибо большое! Вы все правильно поняли, отлично работает!