
Originally Posted by
branston
That's great Paul - thanks.
Is there a 'True/False' option to overwrite the newly created tab data? If I have a new candidate on the Main1 sheet I may want to re-run the groupings but at the moment it won't allow it.
Thanks again
Not sure I understand. As it was, Main1-Sorted is recreated from scratch each time so a new candidate should be included each time
This version will ask you if you want to replace an existing output sheet if it exists
'delete output sheet
On Error Resume Next
i = -1
i = Worksheets(ws1.Name & "-Sorted").Index
'output exists if i <> -1
If i <> -1 Then
If MsgBox("Output worksheet '" & ws1.Name & "-Sorted' aready exists" & vbCrLf & _
"Do you want to keep it" & vbCrLf & vbCrLf & _
"[Yes] = Keep it and exit" & vbCrLf & _
"[No] = Replace it", vbQuestion + vbYesNo + vbDefaultButton1, "Split Into Groups") = vbYes Then
Application.ScreenUpdating = True
Exit Sub
Else
Application.DisplayAlerts = False
Worksheets(ws1.Name & "-Sorted").Delete
Application.DisplayAlerts = True
On Error GoTo 0
End If
End If