Run userform in a worksheet from personal.xlsb

Hi all,
i have a little spreadsheet which i use to organise bits and bobs,

the plan was to have a button on the ribbon at the top, so if i pressed it would open the spreadsheet if necessary then it would run a userform from that spreadsheet thus i used the following code:

Please Login or Register  to view this content.

where CallUF1 is a sub routine which basically says userform1.show - this works, i just cant get the application to run and actually show the userform.

as ever in your hands