What would be the code if i want to have a user input message box to
ask for column Y in macro below - thxs

Sub Goalseek()
'

Range("Y84").Goalseek Goal:=Range("AL84"), ChangingCell:=Range("Y50")

Range("Y85").Goalseek Goal:=Range("AL85"), ChangingCell:=Range("Y51")

Range("Y86").Goalseek Goal:=Range("AL86"), ChangingCell:=Range("Y52")
End Sub