VBA stop procedure if A1=0

[cazdealer]

Hi,
I created a long macro but I don't want it to run if the value of cell A1=0

How could I write something at the beginning of my code that will give me a message box saying A1=0 (if it the case) and stop running... and if A doesnt equal 0, I just want to macro to continue.

thanks

 

[hallingh]

Try:

Sub MySub()
If Sheets("SheetName").Range("A1").Value = 0 Then
Exit Sub
Else
Rest of Code
End Sub

Hank

 

[cazdealer]

Hi Hank,
I tried this below and I get this message:

Compile error:
Block If without End if

do you know what is wrong?

Sub test()

If Sheets("data").Range("A1").Value = 0 Then
Exit Sub

Else
    Range("A1:B14").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
        
    End With
    
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "test"
    Range("E4").Select

End Sub

 

[hallingh]

Stupid me!

Sorry, just zoned out. Use this:

Sub test()

If Sheets("data").Range("A1").Value = 0 Then
Exit Sub

Else
    Range("A1:B14").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
        
    End With
End If
    
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "test"
    Range("E4").Select

End Sub

 

[Rick Rothstein]

Just test for the value in A1 directly at the beginning of your code and pop your MessageBox if it is, then follow that with and "Exit Sub" statement so that your existing code doesn't run....

If Range("A1").Value = 0 Then
  MsgBox "Cell A1 contains 0"
  Exit Sub
End If
'
'  Your existing code goes here
'

Here I have assumed the code is running from the active worksheet; if that will not always be the case, then prepend the Range call with the worksheet its on (assumed here to be Sheet1)...

If Worksheets("Sheet1").Range("A1").Value = 0 Then
  MsgBox "Cell A1 contains 0"
  Exit Sub
End If
'
'  Your existing code goes here
'

 

[cazdealer]

this is perfect. thanks!