Hi Krupesh,
I have written below code for you. Its working fine, you can customize it as
per your need. Hope this will help you.
Sub Find_Sheet()
Dim sh As Worksheet
Dim sTemp As String
sTemp = InputBox("Please enter the sheet name to find:")
For Each sh In ActiveWorkbook.Sheets
If sh.Name =
try this code
Sub check()
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(
Hi Friends
I have written following Macro to Add worksheet if it is not Exists in the
work book , but it is not working as it is not recognized Sheet is exits and
it always add one more work sheet.
Please help
Regards
krupesh
Option Explicit
Private Function SheetExist(Sname As String, Optiona
