The code you were given only works great between "B1:B10"
I tried to add a line
Set insect=Intersect(Target, Range("C1:C10")) but it didnt work.
How can i have a pop up window if I have a larger cell area to work with.
Example,
B1:B10
C1:C10
D1:D10
E1:E10
thru
M1:M10 Thank you.

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