Sort of multiple sheets

[omairhe]

Peace,

How can I sort column I on my workbook only on those sheets where each sheets has a name = simple (not case sensitive, not an exact match)

Sort it alphabetical..

 

[dermie_72]

See if this works.

Sub SheetExistence() 

Dim sht As Object 
For Each sht In ActiveWorkbook.Sheets 
If sht.Name Like "*simple*" Then 

  'macro to sort column I

End If 
Next sht 
End Sub