Verplicht veld invullen voordat men kan printen

[Bert2010]

Dit is de macro zoals ik hem nu gebruik:

Sub Proformafactuur_printen()
'
' Factuur_printen Macro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

End Sub

Wie kan mij helpen deze macro zodanig aan te passen dat veld (AH6) verplicht moet worden ingevuld voordat de Factuur geprint kan worden.
Graag met MsgBox

Bij voorbaat hartelijk dank

Bert

 

[Geoffcel]

If Range("AH1").Value = "" Then GoTo Fout Else GoTo Start
Exit Sub


Start:
'' uw macro


Exit Sub
Fout:
MsgBox ("Vul eerst cel AH1 in"), 0, ("WAARSCHUWING")

Wat gebeurt er, als AH1 leeg is ga naar fout. Als AH1 niet leeg is ga naar start.
Hopelijk heb je er iets aan

 

[Bert2010]

Beste Geoffrey, dit is hem helemaal. Hartelijk dank.
Bert