Goal Seek Loop through every other column

[dviper]

I've to figure out a goal seek loop, but was stymied and out of time. So I did the long way (below) and it is very slow. Is there anyway to make this into a more elegant loop?

Sub Set_Price()
'
' Set_Price Macro
'

'
Range("I32").GoalSeek Goal:=Range("I25"), ChangingCell:=Range("I26")
Range("K32").GoalSeek Goal:=Range("K25"), ChangingCell:=Range("K26")
Range("M32").GoalSeek Goal:=Range("M25"), ChangingCell:=Range("M26")
Range("O32").GoalSeek Goal:=Range("O25"), ChangingCell:=Range("O26")
Range("Q32").GoalSeek Goal:=Range("Q25"), ChangingCell:=Range("Q26")
Range("S32").GoalSeek Goal:=Range("S25"), ChangingCell:=Range("S26")
Range("U32").GoalSeek Goal:=Range("U25"), ChangingCell:=Range("U26")
Range("W32").GoalSeek Goal:=Range("W25"), ChangingCell:=Range("W26")
Range("Y32").GoalSeek Goal:=Range("Y25"), ChangingCell:=Range("Y26")
Range("AA32").GoalSeek Goal:=Range("AA25"), ChangingCell:=Range("AA26")
Range("AC32").GoalSeek Goal:=Range("AC25"), ChangingCell:=Range("AC26")
Range("AE32").GoalSeek Goal:=Range("AE25"), ChangingCell:=Range("AE26")
Range("AG32").GoalSeek Goal:=Range("AG25"), ChangingCell:=Range("AG26")
Range("AI32").GoalSeek Goal:=Range("AI25"), ChangingCell:=Range("AI26")
Range("AK32").GoalSeek Goal:=Range("AK25"), ChangingCell:=Range("AK26")
Range("AM32").GoalSeek Goal:=Range("AM25"), ChangingCell:=Range("AM26")
Range("K56").Select
End Sub

 

[shg]

Sub Set_Price()
  Dim iCol As Long
  
  For iCol = Columns("I").Column To Columns("AK").Column Step 2
    With Columns(iCol)
      .Cells(32).GoalSeek Goal:=.Cells(25).Value2, ChangingCell:=.Cells(26)
    End With
  Next iCol
End Sub

It won't go any faster.

 

[dviper]

Thanks a bunch

 

[shg]

You're welcome.