Niet aktieve sheets delete

[Doohan]

Beste Helper,

Hoe zou de code eruit zien in vba om de niet aktieve sheets te deleten in vba?

m.vr.gr
Martin

 

[HSV]

Bv.

Sub hsv()
Dim sh As Worksheet
Application.DisplayAlerts = False
  For Each sh In Sheets
    If sh.Name <> ActiveSheet.Name Then sh.Delete
  Next sh
End Sub

 

[Doohan]

Dank je HSV,

Ik ga ermee aan de gang.