Kontrol af arknavn

Hej

Jeg har en makro, der opretter et nyt ark og navngiver det ud fra det, der indtastes i en inputboks. Det er en dato der indtastes. Datoen indsættes i B2. Arket navngives f.eks. "Uge 6" hvor ugenr. tages ud fra datoen. Alt det virker fint. Men jeg skal have en kontrol af den dato der indtastes i inputboksen, så der ikke oprettes 2 ark med samme navn (makroen fejler hvis arknavn findes i forvejen).
Det skal således kontrolleres at der ikke i forvejen er et ark der f.eks. hedder "uge 6". Hvis der er det, skal brugeren indtaste en ny dato.
Min kode for inputboks ser således ud:

'Inputboks hvor der skal indtastes startdato for protokol. Dato indsættes i feltet B2
    Dim varDato As Date
   
    varDato = InputBox("Indtast startdato for protokol", "Dato input")
   
        Range("b2").Select 'Vælg den celle hvor data skal sættes ind - A1
       
        'Formatering af cellen som dato
        With Selection
            .NumberFormat = "dd/mm/yyyy;@"
        End With
       
       
        'Indsæt dato
        ActiveCell.Value = varDato

'navngiv ark
    ActiveSheet.Name = "uge " & Range("b1")