Check spelling - exit on Escape

[Formula11]

I'm checking spelling in Excel using VBA and was looking to have 2 functionalities.
1. Go to cell when checking. This is done with Cell.Select.
2. If Esape or Close is pressed, to Exit. It works with If Not Cell.CheckSpelling Then Exit Sub, but then then you can't go the cell for some reason.

Is there a way to have both work?

Sub Spelling()
    Dim Cell As Range
    For Each Cell In ActiveSheet.UsedRange
'If Not Cell.CheckSpelling Then Exit Sub
        If Len(Cell) > 0 Then
            Cell.Select
            Cell.CheckSpelling
        End If
    Next Cell
End Sub

 

[EFANYoutube]

Hi Formula11

Why check each cell like that, if you check the whole range in one then the CheckSpelling will stay open for all spelling mistakes and close on exit/ESC or finished spell checking

ActiveSheet.UsedRange.CheckSpelling

 

[Formula11]

Yes, but it will be used in another context later, I won't be checking every cell.

 

[EFANYoutube]

Sorry but not sure there is a way to interupt the loop as I can't find any trigger that sets off when canceling the spell check dialog

 

[Formula11]

That's OK, thanks anyway.