Hi, i´ve got a problem with this command button.
It deletes sheets named Tarea+nº and Acción+nº and works perfect
when these sheets already exist, but once i´ve deleted them i-ve got
an error when pussing again the button and excel gets closed asking me
if i want to send the error report.
I´ve already tried writing on error resume next everywhere (i´m a
beginner and don´t know the properly use of this function)


ANY IDEA??? THANKS A LOT!!!!


Private Sub CommandButton12_Click()


Dim wksH As Worksheet
Dim mtr(), n


For Each wksH In Worksheets
If Left(wksH.Name, 6) = "Acción" Then
n = n + 1
ReDim Preserve mtr(1 To n)
mtr(n) = wksH.Name
End If
Next
Worksheets(mtr()).Select


Set wksH = Nothing


For Each wksH In Worksheets
If Left(wksH.Name, 5) = "Tarea" Then
n = n + 1
ReDim Preserve mtr(1 To n)
mtr(n) = wksH.Name
End If
Next
Worksheets(mtr()).Select


Set wksH = Nothing
ActiveWindow.SelectedSheets.Delete


On Error Resume Next


End Sub