Beim Ablauch eines Makros frage ich eine Zelle nach einem Wert ab. Entspricht der Wert 2 dann sollte ein Teil des Makros übergangen werden. Bspl.:

Sub Rechnung()
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Hier sollte abgefragt werden:
if ("I7") = 2 then .... übergehe den nächsten Teil
'
Sheets("Stammdaten").Select
Range("A50:A54").Select
Selection.Copy
Sheets("Rechnung").Select
Range("A46").Select
ActiveSheet.Paste

hier gehts weiter
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim rngAct As Range