full screen yes/no switch with recording last active cell keeps repeating with cell activation

[littlepete]

Sub volledigscherm() ' - control L - [f11]
Set dezecel = ActiveCell
If Not Application.DisplayFullScreen Then
    Application.DisplayFullScreen = True
Else
    Application.DisplayFullScreen = False
End If
If ActiveCell.Row < 5 Then
Range("a5").Select
Else
dezecel.Select
End If
End Sub

hello all

I use an adjusted full screen switch on/off with a function key F11 ...
It works perfectly ! it records the active cell, then switches to full or not full screen, and then selects the last active cell again !

so far, so good, but:
i am adding cell activation to start macro's with a click on a cell in row three... that way clicking on cell E3 should start the full screen macro.
but, because the last active cell is effectively that cell E3 the full screen macro keeps repeating itself...

is there a way to stop that, or just do the macro once each time?

have a nice weekend all !!!

 

[rlv01]

You didn't post your event code, so this is a bit of a guess, but adding a couple of Application.EnableEvents statements should do it.

Sub volledigscherm() ' - control L - [f11]
    Set dezecel = ActiveCell
    If Not Application.DisplayFullScreen Then
        Application.DisplayFullScreen = True
    Else
        Application.DisplayFullScreen = False
    End If
    Application.EnableEvents = False  '<--- events off
    If ActiveCell.Row < 5 Then
        Range("a5").Select
    Else
        dezecel.Select
    End If
    Application.EnableEvents = True '<--- events on
End Sub

 

[littlepete]

hello

i did try the application.enableevents job, put probably i put it in the wrong places...
now it's working perfectly !!!

thank you for your fast and correct answer, wishing you an enjoyable sunday !