Выделение цветом макс. столбец

[Vasy7]

Ребят как выделить столбец цветом с макс. суммой

Private Sub CommandButton1_Click()
Cells.Clear
Dim n As Byte
Dim m As Byte
n = InputBox("Введите к-во строк")
m = InputBox("Введите к-во столцов")
Set Rng = Range(Cells(1, 1), Cells(n, m))
For Each cel In Rng
cel.Value = Int(Rnd * 10)
Next
summ = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(n, 1)))
st = 1
Cells(n + 1, 1) = summ
For i = 2 To m
Set rng_s = Range(Cells(1, i), Cells(n, i))
summ = Application.WorksheetFunction.Sum(rng_s)
Cells(n + 1, i) = summ
If summ > Max Then
Max = summ
st = i
End If
Next
MsgBox "Макс. cумма столбца " & st & " = " & Max
End Sub

[Казанский]

Private Sub CommandButton1_Click()
Dim n As Long
Dim m As Long, Max As Double, summ As Double
Max = -9E+307
Cells.Clear
n = InputBox("Введите к-во строк")
m = InputBox("Введите к-во столцов")
With Range(Cells(1, 1), Cells(n, m))
    .Formula = "=INT(RAND()*10)"
    .Value = .Value
    For n = 1 To .Columns.Count
        summ = Application.Sum(.Columns(n))
        If summ > Max Then Max = summ: m = n
    Next
    .Columns(m).Interior.ColorIndex = 38
End With

MsgBox "Макс. cумма столбца " & m & " = " & Max
End Sub