stop running macro under conditions

[whitoulias]

Good day to all

I would like to add a piece of code that it will stop running macro.

The condition is that if one ore more cells in range A1:A4 is empty then the macro will stop running

Any ideas?

Thank you

 

[puru.sve]

Try this ..... Exit sub statement use for stopping macro

Sub Marco()
Dim rng As Range
For Each rng In Range("A1:A4")
    If rng Is Nothing Then    ' checking rng is blank or not 
    
        Exit Sub    ' it will stop macro if rng is blank 
        

    Else 

         'do your work here 

    End If
    
Next rng
End Sub

 

[lancerj017]

or try this just put the code above your code

sub test()
Dim myrange As Range
Set myrange = Range("A1:A4")
    If Application.WorksheetFunction.CountA(myrange) <> 4 Then Exit Sub

'your code
end sub

 

[whitoulias]

Both work fine
Thank you both