Private Sub Worksheet_Change(ByVal Target As Range)
Dim insect As Range
Dim Y As String
Set insect = Intersect(Target, Range("B1:B10"))

If insect Is Nothing Then Exit Sub
Y = InputBox("What sheet do you want to put this in?")
Sheets(Y).Activate
End Sub

Thank you very much for the code, this is exactly what i was trying to
accomplish.
How about if you have a larger range to work with.
B1:B10
C1:C10
D1:D10
E1:E10
F1:F10
G1:G10
H1:H10
Thank you..