Masked characters Inputbox

Hi,

I stumbled upon some code that Daniel Klann wrote a few years ago for Excel 97 that someone has modified to run in 2000+ that enables masking of characters using an InputBox, rather than a Userform. This works great when using it in a normal module, but won't work if I try use it in the "ThisWorkbook" Project module...it gives an error relating to the AddressOf part of the function in this line:

Please Login or Register  to view this content.

I realise this isn't a simple method to use, but it simplifies the end use. Does anyone have any ideas on how to get this working in the ThisWorkbook module? As I want this to run when users open the Workbook.

I've split the code Daniel wrote and my sub below:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Cheers,
Dan

Thanks so much, I was keeping Daniel's code within the Workbook code. Works perfectly now having it in a module.