Controle of er een naam geselecteerd is

[Oude leerling]

Geacht forum,

Kunt u mij helpen met dit probleem.
Leek mij eenvoudig maar ik weet niet hoe dit te realiseren d.m.v. een macro.

Vriendelijke groet, Jaap

 

[HSV]

sub hsv()
 MsgBox IIf(Intersect(ActiveCell, Range("a1:a15")) Is Nothing, "selecteer een naam", "goed zo!")
end sub

 

[Oude leerling]

HSV,
Niet helemaal goed
Als er WEL een naam geselecteerd staat hoeft er geen mededeling te verschijnen.
Ik heb dat "Goed zo" weggelaten maar dan werkt de code niet meer.
Wat moet het dan zijn?

 

[HSV]

If Intersect(ActiveCell, Range("a1:a15")) Is Nothing Then MsgBox "selecteer een naam"

 

[Oude leerling]

HSV,
Dank je wel.
Dat is helemaal goed.
Ik heb ondertussen al heel wat van je op gestoken.
Dank je wel voor alle reacties.
Vriendelijke groet , Jaap

 

[HSV]

Graag gedaan Jaap.