Question: I have two lists which has time in string format. I need to compare these two and extract the larger values in to another list.

```
List 1
"00:00"
"00:15"
"00:30"
"00:45"
....
"23:45"

List 2
"00:15"
"15:30"
"15:45"

```

now List 3 should contain all the values from list 1 which are larger than each value when compared to List 2.

Answer: 
try

```
Dim ws As Worksheet

Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If ws.CodeName <> "Sheet6" Then ws.Delete
Next
Application.DisplayAlerts = True

```
When deleting, always iterate backwards (although Jeeped's answer has a different way of addressing this).

```
    Dim iterator as long
    Application.DisplayAlerts = False
    For iterator = ThisWorkbook.Worksheets.Count To 1 Step -1
        With ThisWorkbook.Worksheets(iterator)
            if .CodeName <> "Sheet6" Then .Delete
        End With
    Next iterator
    Application.DisplayAlerts = True

```