ماکروی ایجاد صفحه اکسل با کنترل نام

Sub CreateSheetIfNotExist()
               Dim i As Long
               Dim s, k As String
               s = InputBox("Enter the sheet name to be added")
               For i = 1 To Worksheets.Count
                   k = Worksheets(i).Name
                   If UCase(k) = UCase(s) Then
                       MsgBox "Sheet Already Exists"
                       Exit Sub
                   End If
               Next i
               Sheets.Add After:=Sheets(Sheets.Count)
               Sheets(Sheets.Count).Name = s
               End Sub