bladinvullen fout

[dinoshop]

Sub New_User()
Dim sh As Object
sNaam = InputBox("Naam nieuwe medewerker aanmaken")
For x = 1 To Sheets.Count
If Sheets(x).Name = sNaam Then
MsgBox "blad bestaat al"
Exit Sub
End If
Next
Sheets("invullen").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = sNaam Sheets(sNaam).Range("B19").Value = sNaam
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Bladnamen").Range("a1").Value = sNaam

With Sheets("Bladnamen")
.Rows("1:1").Insert Shift:=x1Down
End With
End Sub

Private Function SheetExists(Sheetname As String) As Boolean
On Error Resume Next
Dim x As Object
Set x = ActiveWorkbook.Sheets(Sheetname)
SheetExists = (Err = 0)
End Function

als deze code uitvooer doet die alles wat ik wil behalve als ik niks invule en doorvoer geeft hij fout op het dik gedrukte
wat doe ik verkeerd .

 

[zapatr]

Dat is logisch, want een blad aanmaken zonder het een naam te geven, dat kan niet. Wijzig deze regels:

If Sheets(x).Name = sNaam Then
MsgBox "blad bestaat al"

in:

If Sheets(x).Name = sNaam or len(sNaam) = 0 Then
MsgBox "Het blad bestaat al of je hebt geen naam ingevoerd"