Executes Continuously

[Rubber Beaked Woodpecker]

What adjustment do I need to make please so that the following code only executes the once? As it is it is in a never ending loop

Option Explicit

Dim currentMarket As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
    Application.EnableEvents = False
     If Range("R1").Value = 6 Then
            logBalance
   End If
    End If
    Application.EnableEvents = True
End Sub

 

[BSALV]

never ending loop, every second, every minute, easy, you can do with an application.ontime
do you want with an interval less then 1 sec ??
How often ?

 

[Rubber Beaked Woodpecker]

never ending loop, every second, every minute, easy, you can do with an application.ontime
do you want with an interval less then 1 sec ??
How often ?

Yes less than 1 second please. Thank you.

I just need the code to run once then stop.

 

[BSALV]

normally something you don't want, an endless loop, how do you stop that one.
Add a doevents, in case you want to break the macro.
Use a pointer if you want to stop after 1e15 loops (or reset that just before)

Sorry, but i can't see the advantage with an event-macro for the change of range ("R1") ...
Your processor is busy doing nothing ...

Option Explicit

Dim currentMarket As String

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim ptr   As Double
     If Target.Columns.Count = 16 Then
          Application.EnableEvents = False
          Do                                                    'this loop is almost endless
               DoEvents                                         'try to stop your macro
               ptr = ptr + 1
               If Range("R1").Value = 6 Then
                    logBalance
               End If
               If ptr >= 1E+15 Then ptr = 0
          Loop While ptr < 1E+15                                'stop at pointer>=1e
     End If
     Application.EnableEvents = True
End Sub