Running module in If statement in VBA

[Billdub417]

Hello,

Hopefully a relatively simple question!

I am running the below code (Sub Update()), with an If statement that identifies if there is an error. The only issue is, if it identifies an error, the module that it has run earlier "Toggle-sheets True" remains as it is, rather than reverting back to how it was.

I could do with being able to add the below "Sub toggle()" before the "Exit Sub" - any help greatly appreciated on how to do this!

thanks,

Sub toggle()
Sheets("sheet1").Select
  If [d6] = "Monthly" Then
            toggle_sheets True
        Else
            toggle_sheets False
            
        End If
End Sub

Sub Update()
  toggle_sheets True
    Sheets("sheet1").Select
     With Sheet22
        Dim i As Integer
        i = 1
        For Each cell In .Range("v3:v14").Cells
            If cell.value <> 0 Then
                MsgBox ("Period " & i & " does not balance")
                Sheets("sheet2").Select
                Exit Sub
            End If
        i = i + 1
        Next
        Sheets("sheet2").Select
End With
End Sub

 

[GWteB]

Your description is a bit vague, could you be a bit clearer what exactly you are trying to achieve and in what condition. For example, I see that a "toggle_sheets" procedure is called with a boolean argument, but the code is missing. What is your ultimate goal?

 

[offthelip]

try this:

Sub Update()
  toggle_sheets True
    Sheets("sheet1").Select
     With Sheet22
        Dim i As Integer
        i = 1
        For Each cell In .Range("v3:v14").Cells
            If cell.Value <> 0 Then
                MsgBox ("Period " & i & " does not balance")
                Sheets("sheet2").Select
                Call toggle
                Exit Sub
            End If
        i = i + 1
        Next
        Sheets("sheet2").Select
End With
End Sub

 

[Billdub417]

try this:

Sub Update()
  toggle_sheets True
    Sheets("sheet1").Select
     With Sheet22
        Dim i As Integer
        i = 1
        For Each cell In .Range("v3:v14").Cells
            If cell.Value <> 0 Then
                MsgBox ("Period " & i & " does not balance")
                Sheets("sheet2").Select
                Call toggle
                Exit Sub
            End If
        i = i + 1
        Next
        Sheets("sheet2").Select
End With
End Sub

perfect, thanks.