Macro to Exit Sub if Cell E2 is zero on sheet "Sales Summary Analysis"

[howard]

I have the following code below

I would like to exit the Macro if after running Macro Open_SalesAnalysis , the value in E2 = 0 on sheet "Sales Summary Analysis"

It would be appreciated if someone could kindly assist me

 Sub Update_Data()
ChDir ("C:\extract")
Dim response
response = MsgBox("Have you Filtered and removed Clearing JNLS from sales Analysis Sheet under reference", vbYesNo)
If response = vbNo Then
Exit Sub
Else
End If
 
Unfilter_AllSheets
Formula_Turnover
Open_SalesAnalysis
Application.Calculation = xlCalculationAutomatic
 With Sheets("Sales Summary Analysis")
If .Range("E2") = 0 Then
MsgBox "Please delete Clearing JNLS"
Exit Sub
 Else
     
   End If
 End With
Application.Calculation = xlCalculationManual


Insert_Columns
Create_Formula
Application.Calculation = xlCalculationAutomatic
 end Sub

 

[Fluff]

That's what your code is doing.

 

[howard]

Hi Fluff

I don't know what i did, but does exit the sub if E2 is zero (i'm having a blue Monday)

 

[Fluff]

Glad to help & thanks for the feedback.