Beginner Macro Question

[secox]

I need to set a series of cells to a certain value by changing another serices of cells.

I know I can write a macro like:

Range("G53").GoalSeek Goal:=60000, ChangingCell:=Range("G61")
Range("H53").GoalSeek Goal:=60000, ChangingCell:=Range("H61")
Range("I53").GoalSeek Goal:=60000, ChangingCell:=Range("I61")
Range("J53").GoalSeek Goal:=60000, ChangingCell:=Range("J61")
Range("K53").GoalSeek Goal:=60000, ChangingCell:=Range("K61")
Range("L53").GoalSeek Goal:=60000, ChangingCell:=Range("L61")
Range("m53").GoalSeek Goal:=60000, ChangingCell:=Range("m61")

and so on, but I also know there is a way to do this in one step--I just don't know how. Can anyone tell me how to do this from Column G to Column BP without repeating each line?

 

[OdinsDream]

You mean like a loop?

CurrentColumn = 7 ' Column G
LastColumn = 68 ' Column BP

Do Until CurrentColumn > LastColumn
    Cells(53, CurrentColumn).GoalSeek Goal:=60000, ChangingCell:=Cells(61, CurrentColumn)
    CurrentColumn = CurrentColumn + 1
Loop

 

[secox]

That was what I was going for. I'll try changing it to something like that.