Zielwertsuche

Sub Zielwertsuche_Pressungen_Fall1()
Range("G22").GoalSeek Goal:=1, ChangingCell:=Range("G16")
End Sub

Sub Zielwertsuche_Pressungen_Fall2()
Range("G26").GoalSeek Goal:=1, ChangingCell:=Range("G16")
End Sub

Wie zu erkennen ist, ist G16 die veränderliche Zelle.
G16 hat Einfluß au G22 und G26.
G22 und G26 dürfen im Grenzfall nicht größer als 1 werden.
Eines von beiden wird im Grenzfall 1, wobei das andere immer kleiner 1 sein muss.
Wie kann ich die obigen Makros zu einem Makro vereinen, damit ich nicht
immer 2mal eine Grenzwertsuche starten muss?
Ist das möglich?
Danke im Voraus für jeglichen Tipp
Andreas