Function SizeRank(Area As Integer) As Integer

If Area 10000 Then
Size = 1



The above line should be:

SizeRank = 1



ElseIf Area <= 10000 And Area 5000 Then
Size = 2
ElseIf Area <= 5000 And Area 2000 Then
Size = 3
ElseIf Area <= 2000 And Area 600 Then
Size = 4
ElseIf Area <= 600 Then
Size = 5
End If

End Function



You need to assign the value you want your function to return to the name of
the function.

--
Michael Hopwood


"whelanj " wrote in message
...
Me again. As explained about a half hour ago, newbie user to VB. Not
really sure of grammar and stuff and I can't see what's going on here.
Basically, the formula takes the area of a building and assigns it a
ranking integer. Any input result in as output of 0 (zero). Help...
btw, are there any good sites out there for a quick and dirty intro to
VB - grammar, basic functions and statements, etc.? Not excel specific
necessarily... thanks. Oh! Here's the code:




Function SizeRank(Area As Integer) As Integer

If Area 10000 Then
Size = 1
ElseIf Area <= 10000 And Area 5000 Then
Size = 2
ElseIf Area <= 5000 And Area 2000 Then
Size = 3
ElseIf Area <= 2000 And Area 600 Then
Size = 4
ElseIf Area <= 600 Then
Size = 5
End If

End Function


---
Message posted from http://www.ExcelForum.com/