Goalseek selected cell

Is it possible to make a macro that will Set Goal Seek on the current cell, with the Changing Cell as the cell directly to the right, and Goal on the cell directly to the left of the selected cell?

Thanks

EDIT:
Attached template

Hi.
attach a template file

Sub GS()
    If TypeOf Selection Is Range Then
        With Selection.Cells(1)
            .GoalSeek Goal:=.Offset(, -1), _
                      ChangingCell:=.Offset(, 1)
        End With
    End If
End Sub