Вложенные ... для каждого цикла с операторами If

Question

Я новичок в vb.script, так что это может быть просто вопрос форматирования, который я не могу найти. Проблема заключается в проверке данных в ячейках, которые находятся на разных листах в одной книге.

Looping через рабочие листы, а затем циклически диапазона ячеек:

Private Sub Validate(ByRef objWorkbook As Workbook) 

Dim strPattern As String: strPattern = "^\-{0,1}\d+(.\d+){0,1}$" 
Dim regEx As New VBScript_RegExp_55.RegExp 
Dim strInput As String 
Dim strOutput As String 
Dim Myrange As Range 
Dim regExCount As Object 
Set regExCount = CreateObject("vbscript.regexp") 
On Error Resume Next 

For Each objWorksheet In objWorkbook.Worksheets 
    If (UCase(objWorksheet.Name) = "Foo") Then 
     objWorksheet.Select 
     Range("Q2").Select 

    ElseIf (UCase(objWorksheet.Name) = "Bar") Or (UCase(objWorksheet.Name) = "Poo") Then 
     objWorksheet.Select 
     Set Myrange = ActiveSheet.Range("D51:AA76") 

     For Each cell In Myrange.Cells 
      If strPattern <> "" Then 
      strInput = cell.Value 
      strReplace = "" 

      With regEx 
       .Global = True 
       .MultiLine = True 
       .IgnoreCase = False 
       .Pattern = strPattern 
      End With 

      Set regExCount = regEx.Execute(strInput) 
      If regExCount.Count = 0 Then 
       strOutput = strOutput + "Illegal character at " + cell.AddressLocal + "\r\n" 
      End If 
     Next cell 
    End If 

Next 
MsgBox (strOutput) 

End Sub 

Когда я компиляции я получаю ошибку Следующего без для цикла в следующей ячейке. Удаление этой строки, и я получаю сообщение об ошибке для блока If без End Ff, выделяющего End Sub. Добавление конца. Если до конца конца и я получаю следующее без ошибки.

Answer 1

Разве не этот блок отсутствует и закончился, если?

 If strPattern <> "" Then 
      strInput = cell.Value 
      strReplace = "" 

Answer 2

Ваш

If strPattern <> "" Then 

не замкнута между

End If ' regExCount.Count 
Next cell ' In Myrange.Cells