Kontrole naam tabblad

[CvD]

Beste Forumleden,

Ik zit met een vraag.
Ik heb een script gemaakt om in excel 2003 een werkblad aan te maken.
Ik kan een naam opgeven en een tabkleur. Dit werkt allemaal goed.
Echter het laatste punt waar ik tegenaan loop is, wanneer je een werkblad toevoegt en je geeft een naam op die al in een tab staat dan krijg ik een foutmelding, want je kunt geen twee tabbladen hebben met dezelfde naam in de tab.
heeft iemand een idee of een script waarmee ik kan kontroleren of de opgegeven naam al in een tab voorkomt.
Alvast bedankt.

CvD

 

[cow18]

Sub xxx()
  Dim sh As Worksheet, Naam As String
  Naam = "naam van nieuw blad"
  On Error Resume Next
  Set sh = Sheets(Naam)
  On Error GoTo 0
  If sh Is Nothing Then
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Naam
  Else
    MsgBox "helaas er bestaat al een blad met de naam " & vbTab & sh.Name
  End If
End Sub

 

[CvD]

Beste cow18,

Sorry dat ik niet eerder de gelegenheid had om te reageren.
Volgens mij is dit inderdaad wat ik zoek.
Ben er al mee bezig geweest en is bijna binnen mijn script kompleet.
Ik ben er nog even mee bezig, maar als het werkt dan zal ik dit onderwerp op gereed zetten.

 

[CvD]

Beste Cow18,

Ik ben een week op vakantie geweest en net terug.
Het probleem is opgelost met je antwoord.
Bedankt