MsgBox does not appear after the code executes.

Hi
I have a code, which works, but I want msgbox appear after the code executes. But it does not. Why?

Private Sub CommandButton7_Click() 'Code is not working
Dim intIndex As Integer, intCount As Integer, i As Integer, ListRow As Integer
Application.ScreenUpdating = False
On Error GoTo oops
    For intIndex = 0 To ListBox1.ListCount - 1 'Counts how many items in listbox.1 selected
        If ListBox1.Selected(intIndex) Then intCount = intCount + 1
    Next intIndex

    For ListRow = 1 To 40 'Hides corresponding buttons
        If ListBox1.Selected(ListRow) Then
            ActiveSheet.Shapes(Application.WorksheetFunction.Index(Range("ButtonName"), _
                Application.WorksheetFunction.Match(ListBox1.List(ListRow), _
            ActiveSheet.Range("Source"), 0))).Visible = False
        End If
    Next ListRow
    MsgBox "DONE!!!!!!!!!!!!!" 'HERE HERE HERE NOT APPEARING
oops:
Unload Me
End Sub

Is your code ever getting to that line or is it erroring out thus skipping to your Unload Me line? Just plonk a message box after oops indicating if an error was made:

oops:
  If Err<>0 Then MsgBox "An error occured"
  Unload Me
  End Sub

Listboxes are zero based.
You are trying to access item 40, which does not exists.

    For ListRow = 0 To ListBox1.ListCount - 1 'Hides corresponding buttons

Always a good idea when code with Error trapping is not working is to remove the error trapping in order to see the actual error. Put it back when reason is understood and resolved.

Hi sweep
Thx for responce
Actually I dont need screenupdating at all.

Thank u for all your responces
RichardSchollar
Workde like a charm!!!!!!!!!!!!!