ExcelBanter - Goal Seek on Multiple Cells

ExcelBanter (https://www.excelbanter.com/)

- Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)

- - Goal Seek on Multiple Cells (https://www.excelbanter.com/excel-worksheet-functions/13784-goal-seek-multiple-cells.html)

newtoloop

Goal Seek on Multiple Cells

I don't know the loop statements very well. I want to do the following goal
seek on a number of cells in the same row. Can anyone help?

Sub
Dim X As String
X = Range("A1").Value
Range("A10").GoalSeek Goal:=X, ChangingCell:=Range("B1")
If Range("B1")<Range("A1") then Range("B1") = Range("A1").Value
End if
End Sub

All times are GMT +1. The time now is 12:06 PM.