Inputbox and Object name

[buzz71023]

I am trying to get an inputbox name a shape within my workbook. This is what I have so far and i am getting a Run-time error ("The specific value is out of range") on the part in red. Any code help would be great.

Dim MyInput
Sheets("List Form").Select
    ActiveSheet.Shapes.Range(Array("BlankTestButton")).Select
    Selection.Copy
    Sheets("For Copy").Select
    Range("A36").Select
    ActiveSheet.Paste
    Range("B37").Select
InputBox ("What would you like to name this shape?")
    Sheets("For Copy").Shapes.Range(Array("BlankTestButton")).Select
         [COLOR=Red]Selection.ShapeRange.Name = MyInput[/COLOR]

 

[Pcool]

I am trying to get an inputbox name a shape within my workbook. This is what I have so far and i am getting a Run-time error ("The specific value is out of range") on the part in red. Any code help would be great.

Dim MyInput
Sheets("List Form").Select
    ActiveSheet.Shapes.Range(Array("BlankTestButton")).Select
    Selection.Copy
    Sheets("For Copy").Select
    Range("A36").Select
    ActiveSheet.Paste
    Range("B37").Select
InputBox ("What would you like to name this shape?")
    Sheets("For Copy").Shapes.Range(Array("BlankTestButton")).Select
         [COLOR=Red]Selection.ShapeRange.Name = MyInput[/COLOR]

I think you need to set "MyInput" equal to something
you can set it to a range by doing

Dim myInput As String
myInput = Worksheets("Sheet1").Range("A1").Value

 

[Pcool]

I think you need to set "MyInput" equal to something
you can set it to a range by doing

Dim myInput As String
myInput = Worksheets("Sheet1").Range("A1").Value

Nevermind, I think this is more what you want. To save what you enter as a string use something like this:

Dim MyInput As String
    MyInput = InputBox("Please enter info", "Data Entry")

 

[buzz71023]

Yeah that's perfect thanks... I knew I was forgetting something