pop up window

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: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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

pop up widow 2
another sumproduct with #value error... 5
Trying to run excel vba code when cell value changes from empty to entered value. 1
Excel Already selected values from DropDown list dynamically updating on multiple sheets 10
How to count unique values with multiple criteria 1
ATTN : Ron (Multiple Dependent DV List Auto Update) 1
Excel How to run multiple Private Sub Worksheet_Change(ByVal Target As Range) 0
If cancel list box don't enter FALSE in list 2

Top