Can't pass a variable value from a worksheet sub to a userform sub

I am trying to pass two variables RARD and CARD from Sheet1 'change selection' subroutine to the 'Set ARD Command button click' subroutine. The variable value remain empty and it gives me a 1004 error when I try to execute this line of code:

Please Login or Register  to view this content.

What I am trying to do is put the text value 'ARD' in the cell on sheet1 which was the original cell I clicked on to open the userform2. To do this I click on the 'Set ARD' button on the userform2 which is then suppose to hide the userform2 and put the 'ARD' text in the selected cell on Sheet1.

I have attached the workbook for your review.

Thanks for your help

Dan

Hi Dan,

You can't declare a 'Public' item in a Sheet.

Move the following into an ordinary module (e.g. 'Module1'):

Please Login or Register  to view this content.

As an additional suggestion, to prevent typos from ruining days and weeks of work you need 'Option Explicit' at the top of each code module.
This forces you to declare every variable.
http://www.cpearson.com/excel/DeclaringVariables.aspx

Lewis