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

```
Here's an alternate with no vars.

```
application.displayalerts = false

with ThisWorkbook
    if .worksheets("sheet6").index > 1 then _
        .worksheets("sheet6").move before:=.sheets(1)
    do while .sheets.count > 1
        .sheets(2).delete
    loop
end with

application.displayalerts = true

```