Thread: pop up widow
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
tleehh tleehh is offline
external usenet poster
 
Posts: 21
Default pop up widow

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