T
tleehh
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
10
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
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
10E1: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