If tab for sub has nothing, call the next sub VBA

[beginvbaanalyst]

Hi Everyone,

The title says it all.
Basically if my "A2" is empty I would like the vba to immediately call the next sub procedure.
What's the best way to do this?
I would write it in every sub for efficiency purposes.

 

[Caleeco]

Hello,

Without seeing your sub-routines its difficult to advise the best solution. To give you an idea to expand on, you could use a function to check A2 of the active sheet. Then based on the TRUE/FALSE condition that is returned > Take action accordingly.

Sub Main()
Dim ws1 As Worksheet

Set ws1 = Sheets("Sheet1")
ws1.Activate

If Check_A2 = True Then
    Exit Sub
End If

End Sub


Function Check_A2() As Boolean
    If ActiveSheet.Range("A2").Value = "" Then Check_A2 = True
End Function

Cheers
Caleeco