VBA Code to Use Goal Seek in Excel

by

VBA code that you can use to use Goal Seek in Excel.

VBA Code:

Sub UseGoalSeek()
    Dim targetCell As Range
    Dim changingCell As Range
    Dim targetValue As Double
    
    ' Set the target cell and changing cell
    Set targetCell = Range("A1") ' Change the target cell reference as desired
    Set changingCell = Range("B1") ' Change the changing cell reference as desired
    
    ' Set the target value
    targetValue = 100 ' Change the target value as desired
    
    ' Use Goal Seek to find the value in the changing cell that produces the target value in the target cell
    Application.GoalSeek Goal:=targetValue, ChangingCell:=changingCell
    
    ' Inform the user of the result
    MsgBox "Goal Seek completed. The value in cell " & changingCell.Address & " has been adjusted to achieve the target value of " & targetValue & " in cell " & targetCell.Address & "."
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment