Exit Sub if No Contents Exist

[Guzzlr]

Hello All

    Sheets("Template").Select
    Range("A9").Select
    If Selection <> contents Then
    Exit Sub
    End If

I'm trying to not run the sub, if Range A9 in the Template worksheet is blank (no data exist). If A9 has nothing in it, the Template work sheet simply remains the same. If A9 does have data in it, then the rest of the program runs.
Thanks for the help
excel 2013

 

[NdNoviceHlp]

If Sheets("Template").Range("A9") = vbnullstring then
Exit sub
End if

Dave

 

[Fluff]

Another option is

    If Len(Sheets("Template").Range("A9").Value) = 0 Then Exit Sub

 

[Guzzlr]

Thanks to both,
Both lines worked, I choose Dave's...Sorry Fluff

 

[Fluff]

Glad we could help & thanks for the feedback.

Also there's nothing to apologise for. All that counts is that you have a working solution.

 

[Guzzlr]

If Sheets("Template").Range("G9") = vbNullString Then
Exit Sub
End If

Here is my code above. It Works because there is either a number in G9, or it is blank. When G9 is blank, the program exits, as it should.

My Question: Why if I change the Range to G9:F100 then it no longer works? even when there is a number in G9 and most of the cells in this range?
Thanks for the help
excel 2013

 

[daverunt]

Hi,

I can't explain the why for you but it must have something to do with how a range of more than 1 cell is seen.
As I understand it, to manipulate/check strings in a range you must look at each cell individually.

Set rng = Sheets("Template").Range("G9:F100")
 
For Each Cell In rng
If Cell.Value = vbNullString Then
Exit Sub
End If
Next