Hej hej
Om du vill att olika blad ska triggas beroende på din data i B56 så:
Sub RunGoalSeek()
'variabel deklaration och populering
Dim ws as worksheet: set ws = thisworkbook.sheets("Befintlig Situation")
'Hämta "tal", björk" eller gran till strängen StrWsName
Dim StrWsName as string: StrWsName = ws.range("B56")
Call RunGoalSeek(StrWsName)
End Sub
Function RunGoalSeek(str as string)
'Obs att å,ä,ö inte alltid fungerar, speciellt om du använder Mac.
'Jag förutsätter dessutom att dina andra blad heter Tillväxt Tall, Tillväxt Gran
str = "Tillväxt " & str
Dim ws as worksheet: set ws = thisworkbook.sheets(str)
ws.Range("B8").GoalSeek Goal:=ws.Range("C8"), ChangingCell:=ws.Range("C7")
end Function
Mvh
Christian