Run-time error '9'
Private Sub CreateEmails_Click() Call PrepareEmail End Sub Public Sub PrepareEmail() Dim sheetcount As Integer Dim managerEmail As String sheetcount = Worksheets.Count For i = 1 To 30 If Worksheets.Count < 4 Then Exit For Else If Worksheets(sheetcount).Name = "T" Then sheetcount = sheetcount - 1 ElseIf Worksheets(sheetcount).Name = "Template" Then sheetcount = sheetcount - 1 ElseIf Worksheets(sheetcount).Name = "Main" Then sheetcount = sheetcount - 1 ElseIf Worksheets(sheetcount).Name = "Exceptions" Then sheetcount = sheetcount - 1 Else Call SendManagerEmail(sheetcount) Application.DisplayAlerts = False Sheets(sheetcount).Delete Application.DisplayAlerts = True sheetcount = sheetcount - 1 End If End If Next i
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)