Get Sheet Names in Excel

[Dan8376]

Hi,

I want to delete all sheets with a name length of 5. I'm having problems with the vb syntax for excel. I know it should be something like this.

set wb = ActiveWorkbook
set sht = Sheets
For Each sht in wb
If len(sht.Name) = 5 Then
sht.Delete
End if
Next

Thanks
Dan

 

[MattSmithProg]

Try this

Set sht = Sheets
For Each sht In Workheets
If Len(sht.Name) = 5 Then
sht.Delete
End If
Next Matt Smith

No two nulls are the same

 

[Dan8376]

Matt,

That helped me figure out my problem.

Thanks
Dan