Public Function checkSheet() As Boolean
Dim sheetAvailable As Boolean
Dim Sheet As Worksheet
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name = "RODB" Then
If Sheet.Cells(100, 100).Value = True Then
checkSheet = True
Else
Sheet.Cells(100, 100).Value = False
checkSheet = False
End If
sheetAvailable = True
Exit For
Else
sheetAvailable = False
End If
Next
Debug.Print ActiveWorkbook.Name
If sheetAvailable = False Then
Set WS = Sheets.Add
ActiveWorkbook.Sheets(Worksheets.Count).Visible = False
ActiveWorkbook.Sheets(Worksheets.Count).Name = "RODB"
checkSheet = False
End If
End Function