Range("i4").Font.Italic = True
Else: Range("i5") = Range("k5") + Range("j5")
Range("j5").Font.Italic = True
End If
If (Range("g3") + Range("g4")) <= (Range("i5") + Range("h5")) Then
Range("g5") = Range("g3") + Range("g4")
Range("g4").Font.Italic = True
Else: Range("ig") = Range("i5") + Range("h5")
Range("h5").Font.Italic = True
End If
If (Range("e3") + Range("e4")) <= (Range("g5") + Range("f5")) Then
Range("e5") = Range("e3") + Range("e4")
Range("e4").Font.Italic = True
Else: Range("e5") = Range("g5") + Range("f5")
Range("f5").Font.Italic = True
End If
If (Range("c3") + Range("c4")) <= (Range("e5") + Range("d5")) Then
Range("c5") = Range("c3") + Range("c4")
Range("c4").Font.Italic = True
Else: Range("c5") = Range("e5") + Range("d5")
Range("d5").Font.Italic = True
End If
If (Range("a3") + Range("a4")) <= (Range("c5") + Range("b5")) Then
Range("a5") = Range("a3") + Range("a4")
Range("a4").Font.Italic = True
Else: Range("a5") = Range("c5") + Range("b5")
Range("b5").Font.Italic = True
End If
If (Range("k5") + Range("k6")) <= (Range("m7") + Range("l7")) Then
Range("k7") = Range("k5") + Range("k6")
Range("k6").Font.Italic = True
Else: Range("k7") = Range("m7") + Range("l7")
Range("l7").Font.Italic = True
End If
If (Range("i5") + Range("i6")) <= (Range("k7") + Range("j7")) Then
Range("i7") = Range("i5") + Range("i6")
Range("i6").Font.Italic = True
Else: Range("i7") = Range("k7") + Range("j7")
Range("j7").Font.Italic = True
End If
If (Range("g5") + Range("g6")) <= (Range("i7") + Range("h7")) Then
Range("g7") = Range("g5") + Range("g6")
Range("g6").Font.Italic = True
Else: Range("g7") = Range("i7") + Range("h7")
Range("h7").Font.Italic = True
End If
If (Range("e5") + Range("e6")) <= (Range("g7") + Range("f7")) Then
Range("e7") = Range("e5") + Range("e6")
Range("e6").Font.Italic = True
Else: Range("e7") = Range("g7") + Range("f7")
Range("f7").Font.Italic = True
End If
If (Range("c5") + Range("c6")) <= (Range("e7") + Range("d7")) Then
Range("c7") = Range("c5") + Range("c6")
Range("c6").Font.Italic = True
Else: Range("c7") = Range("e7") + Range("d7")
Range("d7").Font.Italic = True
End If
If (Range("a5") + Range("a6")) <= (Range("c7") + Range("b7")) Then
Range("a7") = Range("a5") + Range("a6")
Range("a6").Font.Italic = True
Else: Range("a7") = Range("c7") + Range("b7")
Range("b7").Font.Italic = True
End If
If (Range("k5") + Range("k6")) <= (Range("m7") + Range("l7")) Then
Range("k7") = Range("k5") + Range("k6")
Range("k6").Font.Italic = True
Else: Range("k7") = Range("m7") + Range("l7")
Range("l7").Font.Italic = True
End If
If (Range("k7") + Range("k8")) <= (Range("m9") + Range("l9")) Then
Range("k9") = Range("k7") + Range("k8")
Range("k8").Font.Italic = True
Else: Range("k9") = Range("m9") + Range("l9")
Range("l9").Font.Italic = True
End If
If (Range("i7") + Range("i8")) <= (Range("k9") + Range("j9")) Then
Range("i9") = Range("i7") + Range("i8")
Range("i8").Font.Italic = True
Else: Range("i9") = Range("k9") + Range("j9")
Range("j9").Font.Italic = True
End If
If (Range("g7") + Range("g8")) <= (Range("i9") + Range("h9")) Then
Range("g9") = Range("g7") + Range("g8")
Range("g8").Font.Italic = True
Else: Range("g9") = Range("i9") + Range("h9")
Range("h9").Font.Italic = True
End If
If (Range("e7") + Range("e8")) <= (Range("g9") + Range("f9")) Then
Range("e9") = Range("e7") + Range("e8")
Range("e8").Font.Italic = True
Else: Range("e9") = Range("g9") + Range("f9")
Range("f9").Font.Italic = True
End If
If (Range("c7") + Range("c8")) <= (Range("e9") + Range("d9")) Then
Range("c9") = Range("c7") + Range("c8")
Range("c8").Font.Italic = True
Else: Range("c9") = Range("e9") + Range("d9")
Range("d9").Font.Italic = True
End If
If (Range("a7") + Range("a8")) <= (Range("c9") + Range("b9")) Then
Range("a9") = Range("a7") + Range("a8")
Range("a8").Font.Italic = True
Else: Range("a9") = Range("c9") + Range("b9")
Range("b9").Font.Italic = True
End If
End Function
Private Sub CommandButton2_Click()
TextBox1.Text = "10"
TextBox2.Text = "8"
TextBox3.Text = "9"
TextBox4.Text = "11"
TextBox5.Text = "13"
TextBox6.Text = "12"
TextBox7.Text = "15"
TextBox8.Text = "14"
TextBox9.Text = "13"
TextBox10.Text = "12"
TextBox11.Text = "11"
TextBox12.Text = "10"
TextBox13.Text = "9"
TextBox14.Text = "12"
TextBox15.Text = "13"
TextBox16.Text = "14"
TextBox17.Text = "15"
TextBox18.Text = "14"
TextBox19.Text = "13"
TextBox21.Text = "11"
TextBox22.Text = "13"
TextBox23.Text = "12"
TextBox24.Text = "14"
TextBox25.Text = "13"
TextBox26.Text = "15"
TextBox20.Text = "10"
TextBox28.Text = "18"
TextBox29.Text = "19"
TextBox30.Text = "20"
TextBox31.Text = "21"
TextBox32.Text = "18"
TextBox27.Text = "19"
TextBox34.Text = "10"
TextBox35.Text = "10"
TextBox36.Text = "13"
TextBox37.Text = "11"
TextBox38.Text = "12"
TextBox39.Text = "14"
TextBox33.Text = "11"
TextBox41.Text = "10"
TextBox42.Text = "10"
TextBox43.Text = "12"
TextBox44.Text = "12"
TextBox45.Text = "13"
TextBox40.Text = "18"
TextBox47.Text = "9"
TextBox48.Text = "10"
TextBox49.Text = "12"
TextBox50.Text = "15"
TextBox51.Text = "13"
TextBox52.Text = "16"
TextBox46.Text = "19"
TextBox54.Text = "13"
TextBox55.Text = "15"
TextBox56.Text = "10"
TextBox57.Text = "14"
TextBox58.Text = "16"
TextBox53.Text = "17"
End Sub