u/_frognoises_

Taking this to reddit again because I have had some improvement since I last asked questions on here. I've studied a bit of vbScript and here are the lines of code that I came up with.

Function FindLabel ( [Station], [Parameter], [V], [SD_V], [BL_V] )
Dim strColor
Dim strClose

strClose = "</CLR>"
If [SD_V] > 0 And [BL_V] > 0 Then
strColor = "<CLR red='0' green='180' blue='0'>"
ElseIf [SD_V] > 0 Or [BL_V] > 0 Then
strColor = "<CLR red='255' green='200' blue='0'>"
ElseIf [SD_V] < 0 And [BL_V] < 0 Then
strColor = "<CLR red='255' green='0' blue='0'>"
Else
strColor = "<CLR red='255' green='140' blue='0'>"
End If

FindLabel = _
strColor & _
[Station] & " | " & _
[Parameter] & ": " & [V] & _
vbNewLine & _
"SD: " & [SD_V] & _
" | BL: " & [BL_V] & _
strClose

End Function

My problem now is that this code only returns the first row of my data (and occasionally more??? depending on how much I zoom in or out or if I'm lucky, as seen in the picture attached). What do I add to this code so it returns all the rows?????