asking user to enter 10 numbers then find the max

[lezawang]

Hi

I want to write a code (for learning purpose) asking user to enter 10 numbers or whatever user going to enter then the code will find the max number from these number and print a message saying "number ?? is the max you entered".

Can that be done in VBA?

Thank you very much.

 

[Fluff]

Maybe

Sub lezawang()
   Dim Ary As Variant, Res As Variant
   Dim i As Long
   
   Res = InputBox("please enter 10 numbers like 1,7,5,9")
   If Res <> "" Then
      Res = Split(Res, ",")
      ReDim Ary(UBound(Res))
      For i = 0 To UBound(Res)
         Ary(i) = Res(i) * 1
      Next i
      MsgBox Application.Max(Ary)
   End If
End Sub

 

[lezawang]

Works very nicely. Thank you very much. I appreciate it

 

[Fluff]

You're welcome & thanks for the feedback