Vba Help With A Solution

[RELWOD85]

HI THERE IM HAVING TROUBLE PRODUCING SOME VBA CODING IN MICROSOFT EXCE
THAT WILL IMPLIMENT THE FOLLOWING CODE, I WOULD BE GREATFULL IF ANYON
COULD HELP ME ON THIS A.S.A.P BECAUSE I AM NEW TO USING VBA AND FINDIN
IT ALL VERY CONFUSING undefined

SET maximum value=0
LOOP
INPUT a score between 1-10
IF the maximum value is smaller than the input score
SET maximum value=input score
END IF
END LOOP(repeat 4 times)
DISPLAY the maximum value with a suitable messag

 

[Norman Jones]

Hi Relwod85.

Try something like:

Public Sub Tester()
Dim i As Long
Dim arr As Variant
Dim myVal As Double
Static MyMax As Variant

MyMax = 0

arr = Array("FIRST", "SECOND", "THIRD", "LAST")

For i = 1 To 4

myVal = Application.InputBox( _
prompt:="Please enter a " & _
arr(i - 1) & " number", _
Type:=2, _
Title:="Find Maximum", _
Default:=0)

MyMax = Application.Max(myVal, MyMax)

Next i

MsgBox "Your highest entry was: " & MyMax

End Sub

BTW, Please try to avoid upper case communication: in NG parlance this
equates to shouting and, in any event, is uncommonly difficult to read!

 

[Norman Jones]

Hi Relwod,

Change:

Type:=2, _

to

Type:=1, _