Help! I have a Userform that has a listbox that you can delete items from after a msgbox appears Yes or No. My Problem is when I click Yes that the userform freezes until I click inside the listbox. If I click No, I can update the scrollbars no problem. The section of Code Is:
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim last As Integer
Dim CNT As Integer
Dim Response As VbMsgBoxResult
Response = MsgBox("Are you sure?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub

If Not ListBox2.Value = "EMPTY" Then
last = Application.WorksheetFunction.CountA(Range("C:C"))
Set RNG = Range("C2:C" & last)
For i = last To 1 Step -1
If RNG(i).Value = ListBox2.Value Then
Rows(i + 1).EntireRow.Delete
ListBox1.ListIndex = 0 'ListBox1.ListCount - 1
CNT = 1
Do Until ListBox1.Value = Range("C" & CNT)
CNT = CNT + 1
Loop
UserForm1.A12.Value = Sheet1.Range("D" & CNT)
UserForm1.TextBox3.Value = Sheet1.Range("C" & CNT)
UserForm1.A12.Value = Sheet1.Range("D" & CNT)
UserForm1.A10.Value = Sheet1.Range("E" & CNT)
UserForm1.A8.Value = Sheet1.Range("F" & CNT)
UserForm1.A6.Value = Sheet1.Range("G" & CNT)
UserForm1.A4.Value = Sheet1.Range("H" & CNT)
UserForm1.A2.Value = Sheet1.Range("I" & CNT)
UserForm1.A0.Value = Sheet1.Range("J" & CNT)
UserForm1.A1.Value = Sheet1.Range("K" & CNT)
UserForm1.A3.Value = Sheet1.Range("L" & CNT)
UserForm1.A5.Value = Sheet1.Range("M" & CNT)
UserForm1.A7.Value = Sheet1.Range("N" & CNT)
UserForm1.A9.Value = Sheet1.Range("O" & CNT)
UserForm1.A11.Value = Sheet1.Range("P" & CNT)
UserForm1.B10.Value = Sheet1.Range("Q" & CNT)
UserForm1.B8.Value = Sheet1.Range("R" & CNT)
UserForm1.B6.Value = Sheet1.Range("S" & CNT)
UserForm1.B4.Value = Sheet1.Range("T" & CNT)
UserForm1.B2.Value = Sheet1.Range("U" & CNT)
UserForm1.B0.Value = Sheet1.Range("V" & CNT)
UserForm1.B1.Value = Sheet1.Range("W" & CNT)
UserForm1.B3.Value = Sheet1.Range("X" & CNT)
UserForm1.B5.Value = Sheet1.Range("Y" & CNT)
UserForm1.B7.Value = Sheet1.Range("Z" & CNT)
UserForm1.B9.Value = Sheet1.Range("AA" & CNT)
UserForm1.PHU.Value = Sheet1.Range("AB" & CNT)
UserForm1.PHL.Value = Sheet1.Range("AC" & CNT)
UserForm1.SHU.Value = Sheet1.Range("AD" & CNT)
UserForm1.SHL.Value = Sheet1.Range("AE" & CNT)
ListBox1.ListIndex = 0

End If

Next
End If
ListBox1.RowSource = "sheet1" & "!" & "C2" & ":" & "C" & Application.WorksheetFunction.CountA(Range("C:C"))
ListBox2.RowSource = "sheet1" & "!" & "C2" & ":" & "C" & Application.WorksheetFunction.CountA(Range("C:C"))
End Sub