Missing some Keywords, but I know that Mark can take care of that in a jiffy.

From the above, it's missing:
Dim
End
With
If
On Error
Resume

And he may wish to pick up 'On Error Goto 0' as a block, for the linelabel is generally Black, but is Blue when using 'On Error Goto 0'.

Very cool site going on here... I'm most impressed...

-- Mike

(P.S.: You guys may want to shunt off this part of the discussion to an Administrative area or something...)