Macro afbreken als iets niet goed is ingevuld

[amarob]

Hallo,

Ik heb in een macro onderstaande waarschuwing is ingebouwd als iets niet helemaal volledig is ingevuld.

If ActiveSheet.Range("D18") > 0 Then
MsgBox "Let op: je hebt niet alles ingevuld"
End If

Bedoeling is dan dat de macro wordt afgebroken als op OK is gedrukt maar dan loop de macro gewoon verder.

Hoe kan ik dit oplossen?

Alvast bedankt voor het meedenken.

 

[AD1957]

zo ?

If ActiveSheet.Range("D18") > 0 Then
  MsgBox "Let op: je hebt niet alles ingevuld"
  exit sub
End If

 

[fwalraven]

Zo iets?

If ActiveSheet.Range("D18") > 0 Then
MsgBox "Let op: je hebt niet alles ingevuld"
Range("D18").Select
Exit sub
End If

 

[amarob]

Het werkt. Bedankt voor de oplossing.

 

[fwalraven]

Zie nog #3
Range("D18").Select