Sub zerotest()
Dim seekValue As Double
Dim changeCell As Range
Inflation = Range("O7").Value
seekValue = 12345
'seekValue = InputBox("What's the value to seek?")
For Each changeCell In Range("N14:N32").Cells
'Do Until changeCell < 10
changeCell.GoalSeek...
