Function CheckIfSheetExist(wkb As Workbook, SheetName As String) As Boolean
Dim i As Integer
CheckIfSheetExist = False
For i = 1 To wkb.Sheets.Count
If Left(wkb.Sheets(i).Name, Len(SheetName)) = SheetName Then
CheckIfSheetExist = True
Exit For
End If
Next i
End Function
Function AddNewSheet(wkb As Workbook, SheetName As String) As Boolean
Dim newSheet As Worksheet
If SheetName = "" Then Exit Function
If CheckIfSheetExist(wkb, SheetName) = True Then Exit Function
Set newSheet = wkb.Sheets.Add(After:=wkb.Sheets(wkb.Sheets.Count))
newSheet.Name = SheetName
Set newSheet = Nothing
End Function
Function RangeNameExists(ByVal pstrRangeName) As Boolean
Dim lngMaxNames As Long
Dim lngCount As Long
On Error Resume Next
RangeNameExists = False
lngMaxNames = ThisWorkbook.Names.Count
For lngCount = 1 To lngMaxNames
If UCase(ThisWorkbook.Names.Item(lngCount).Name) = UCase(pstrRangeName) Then
RangeNameExists = True
Exit For
End If
Next
End Function