Application.Undo

[tiredofit]

Can someone please explain when does Application.Undo work?

I have this event on a worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)

    Call ModUndo.RollBack

End Sub

and this is ModUndo:

Sub RollBack

    Application.EnableEvents = False

    Application.Undo

    App;ication.EnableEvents = True

End Sub

and it works when a value on Sheet1 is changed.

However if instead the event called another Function first, such as:

Private Sub Worksheet_Change(ByVal Target As Range)

    If CheckForRoll Then Call ModUndo.RollBack

End Sub

and CheckForRoll contains this:

Function CheckForRoll() As Boolean

    If Sheet1.Cells(1, 1).Value = 10 Then

        CheckForRoll = True

    Else

        CheckForRoll = False

    End If

End Function

I get an error in ModUndo.

Why is that?

Thanks

 

[Ryan0120]

Hi,

Just gave it a go and there were some errors indeed.

In rollback their was a mistype

App;ication.EnableEvents = True vs Application.EnableEvents = True

and with CheckForRoll:

If ThisWorkbook.Sheets(1).Cells(1, 1).Value = 10 Then
        CheckForRoll = True
    Else
        CheckForRoll = False
    End If

Should works fine

 

[Ryan0120]

Hi,

Just gave it a go and there were some errors indeed.

In rollback their was a mistype

App;ication.EnableEvents = True vs Application.EnableEvents = True

and with CheckForRoll:

If ThisWorkbook.Sheets(1).Cells(1, 1).Value = 10 Then
        CheckForRoll = True
    Else
        CheckForRoll = False
    End If

Should works fine

Forgot to explain a little, you didnt state which workbook and which sheet to check.

Sheet1.Cells(1, 1).Value

Should be:

ThisWorkbook.Sheets(1).Cells(1, 1).Value

 

[Fluff]

@Ryan0120
This Sheet1.Cells(1, 1).Value does specify the sheet & workbook.
As you can only use the codename directly for the workbook containing the code, it's saying ThisWorkbook sheet codename Sheet1

 

[tiredofit]

Hi,

Just gave it a go and there were some errors indeed.

In rollback their was a mistype

App;ication.EnableEvents = True vs Application.EnableEvents = True

and with CheckForRoll:

If ThisWorkbook.Sheets(1).Cells(1, 1).Value = 10 Then
        CheckForRoll = True
    Else
        CheckForRoll = False
    End If

Should works fine

 

[tiredofit]

Thanks to both for sorting it out.