Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Use Input Box to Name Adjacent Ranges
Whoever will help:
I have some code that goes to the first empty range on a given row and then pastes in a template. It then askes the user via an input box what to name the template (which is serving to store scenario values possibly exceeding the number the scenario manager can handle). Here is the code so far: Sub AddVoiceScenario() Dim NewVoice As String Sheets("Voice Capture").Select Range("B4:C48").Select Selection.Copy Sheets("Scenarios").Select Range("B10").Select Do While ActiveCell.Value = "Current" ActiveCell.Offset(0, 3).Select Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False NameScenario: On Error GoTo Handler NewVoice = InputBox("Please enter a name for this scenario. (The name may include underscores but no spaces.)") At this point I want the range where the paste operation just occurred to be named whatever the user entered into the InputBox (i.e., name the range the current value of "NewVoice"). Thanks to anyone who can help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how can I print non-adjacent ranges on one page | Excel Discussion (Misc queries) | |||
How do I add input data in the input ranges in drop down boxes. | Excel Discussion (Misc queries) | |||
union method for non-adjacent ranges | Excel Programming | |||
union method for non-adjacent ranges | Excel Programming | |||
union method for non-adjacent ranges | Excel Programming |