Got it, you legend reggie xxxxxxxxxx
Sub goalseek()
‘
‘ goalseek Macro
‘
‘ Keyboard Shortcut: Ctrl+w
‘
For x = 1 To 5
Sheets(“Sheet2”).Select
Cells(x, 1).Copy
Sheets(“Sheet1”).Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(“A3”).goalseek Goal:=1000000, ChangingCell:=Range(“A2”)
Cells(2, 1).Copy
Sheets(“Sheet2”).Select
Cells(x, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next x
End Sub