Hi,

With respect to your line causing the error:

Set Rank = cmd.Execute

I think you are just missing the brackets off the end and it should read like this:

Set Rank = cmd.Execute()

Hope...