can't move UserForm with the mouse

[Axel]

I have a userform with comcobox, two textbox and some buttons.
If I run this macro (from button in userform) shown below, and then try
to move the UserForm with the mouse, the UserForm getting spread all
over the screen(Following the mouse).Looks like it's copying itself for
every movment.
Any Suggestion why? Everything works fine, but is not possible to look
at the cells behind the userform, by moving it.


Private Sub CommandButton3_Click()
ActiveSheet.Unprotect Password:=""
Application.ScreenUpdating = False

Dim c As range
Set c = ActiveCell
For Each c In ActiveSheet.range("B4:B53")
If Not IsEmpty(c) Then GoTo line1 Else GoTo line2
line1:
Next c
line2:
ComboBox1.Value = c.Offset(0, -1).Value
ComboBox1.SetFocus

ActiveSheet.Protect Password:="", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub


*** Sent via Developersdex http://www.developersdex.com ***

 

[Greg Wilson]

This is normally what happens when screen updating is set to false. Your code
sets screen updating to false and does not reset it back to true. Suggested
rewrite:

Private Sub CommandButton3_Click()
Dim c As Range
ActiveSheet.Unprotect
Application.ScreenUpdating = False
For Each c In Range("B4:B53")
If IsEmpty(c) Then Exit For
Next c
ComboBox1.Value = c.Offset(0, -1).Value
ComboBox1.SetFocus
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

 

[Axel]

Thank you very much Greg!

That worked!

Aksel

*** Sent via Developersdex http://www.developersdex.com ***