Whatever code you have pointed, I guess, there should not be any space between "Else" and "If"..
Check this :
if RandomOrg = 1 Then
Org.src = Org1Pic(Luck)
Elseif RandomOrg = 2 Then
Org.src = Org2Pic(Luck)
Elseif RandomOrg = 3 Then
Org.src = Org3Pic(Luck)
End if
There are other alternatives to the end if, elseif,else if, and if statments,I have in the past used the same as a toolbar code is in a browser to handle events
case and select case is another way to perform events
example:
Dim Whatever as Integer
Select Case whatever
case whatever = somthing
case whatever could do somthing here
case else could be somthing else here
End Select
End Sub
this could be used instead of else if statments,Your going to need to play with it
The solution was as simple as taking out the space between the 'Else' and the 'If'. I spent ages trying to work it out, but sometimes you just can't see for looking!
Best practice in coding is using a "tab spaces" and align the conditional statement so that it can be easily to read and debug... as what example did of QVeen