Найти максимальное число в цикле - VBA

Формулировка задачи:

Добрый вечер форумяне! подскажите пож как можно определить макс число в цикле, и по возможности перейти к нему Application.Max(Range("A1:A5")) это не подходит, так как эти числа на разных листах И ИХ МНОГО, поэтому пробую циклом и пока что на одном листе

Sub A_MaxNmb()
 
    For i = 1 To 5 
    ms = ms & " " & Cells(i, 1)
    Next
    
    zn = Split(ms, " ")
    
    MsgBox Application.Max(zn) 'не выводит
    
    MsgBox Application.Max(zn(1), zn(4), zn(3))
 
End Sub

Решение задачи: «Найти максимальное число в цикле»

textual
                            Листинг программы 
                        

                            Sub A_MaxNmb()
    dim zn(1to 5)as double
    For i = 1 To 5 
      zn(i) = Cells(i, 1)
    Next
    
    'zn = Split(ms, " ")
    
    MsgBox Application.Max(zn) 'ВЫВОДИТ?
    
    MsgBox Application.Max(zn(1), zn(4), zn(3)) 'ВЫВОДИТ?
 
End Sub
                        