Again, the code I provided would go in the UserForm DD1_Click event or a command button click event of the userform. If you want to use DD1 in an external procedure as you've done then you would need to passed a form object as an argument to the that procedure e.g.,

In a UserForm command button click event procefure

LockDD1 Me

In an external procedure:

Sub LockDD1(oFrm as Object)
Msgbox oFrm.DD1.Value
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/