Export all worksheets with 3-letter names to new workbook

[BlackieHamel]

I've got a workbook with several hundred sheets, and the only ones I want to keep are the ones with 3-letter names.

Can someone suggest a macro that would either (1) delete all sheets except the 3-letter ones; or (2) copy/move all 3-letter worksheets to a new workbook?

Thanks!

Blackie

 

[Gavin T]

Sub RemoveSheets()

    Dim wSheet  As Worksheet

    Application.DisplayAlerts = False

    For Each wSheet In ThisWorkbook.Sheets
        If Len(wSheet.Name) <> 3 Then wSheet.Delete
    Next wSheet

    Application.DisplayAlerts = True
    
End Sub

 

[BlackieHamel]

Wow, that was fast! (Both the response and the macro.) Problem solved. Thanks, Gavin!

 

[Gavin T]

You're welcome!