calculate sheet on a condition

[Rubber Beaked Woodpecker]

The following code works very well however I would like the sheet to only calculate when cell U1 = C

I cannot seem to get this to work correctly. Any pointers pls.

Thanks
RBW

Option Explicit

Dim currentMarket As String
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Sheet4").Calculate
 If Target.Columns.Count = 16 Then
    Application.EnableEvents = False
 
    Range("Q2") = Range("W2")
           Range("T1") = Range("T2")
       Range("AA1") = Range("Z1")
                      If Range("S1") = 1 Then
                     
          Call Balance
                  
         
                           ElseIf Range("X2").Value = "Yes" Then
                          
               Call Results
             Call R1
                                   
        End If
   End If
  
   Application.EnableEvents = True 
End Sub

 

[Michael M]

Try

Option Explicit
Dim currentMarket As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 21) <> "C" Then Exit Sub
Worksheets("Sheet4").Calculate
 If Target.Columns.Count = 16 Then
    Application.EnableEvents = False
 
    Range("Q2") = Range("W2")
           Range("T1") = Range("T2")
       Range("AA1") = Range("Z1")
                      If Range("S1") = 1 Then
          Call Balance
                           ElseIf Range("X2").Value = "Yes" Then
               Call Results
            Call R1
                                   
        End If
   End If
  
   Application.EnableEvents = True
End Sub

 

[Michael M]

Glad it helped..