In Excel 2003, i would like to be able to edit cells, specifically, by
adding to the end of a cell entry
an asteric, and then have an Input box for the user to enter a number.
Example, if the active cell's contents were "Apples 5", and the
macro invoked, an input box would appear, and, if the user entered
"3" in the box, the cell contents would now read " Apples 5*3". The
input should be restricted to numbers, such as "3" or "22" or
"2.25" or 0.333, etc.

Thank you very much,

Tonso

Give this macro a try (change the prompt and title in the InputBox to
whatever text you would like them to display)...

Sub AddAsteriskNumber()
Dim Answer As Variant
Answer = Application.InputBox("Number to use?", "Get Number", Type:=1)
If TypeName(Answer) = "Boolean" Then Exit Sub
ActiveCell.Value = ActiveCell.Value & "*" & Answer
End Sub

--
Rick (MVP - Excel)



"Billy" <(E-Mail Removed)> wrote in message
news:e3c53d79-aac1-4c43-bef7-(E-Mail Removed)...
> In Excel 2003, i would like to be able to edit cells, specifically, by
> adding to the end of a cell entry
> an asteric, and then have an Input box for the user to enter a number.
> Example, if the active cell's contents were "Apples 5", and the
> macro invoked, an input box would appear, and, if the user entered
> "3" in the box, the cell contents would now read " Apples 5*3". The
> input should be restricted to numbers, such as "3" or "22" or
> "2.25" or 0.333, etc.
>
> Thank you very much,
>
> Tonso

On Apr 21, 12:49*pm, "Rick Rothstein"
<rick.newsNO.S...@NO.SPAMverizon.net> wrote:
> Give this macro a try (change the prompt and title in the InputBox to
> whatever text you would like them to display)...
>
> Sub AddAsteriskNumber()
> * Dim Answer As Variant
> * Answer = Application.InputBox("Number to use?", "Get Number", Type:=1)
> * If TypeName(Answer) = "Boolean" Then Exit Sub
> * ActiveCell.Value = ActiveCell.Value & "*" & Answer
> End Sub
>
> --
> Rick (MVP - Excel)
>
> "Billy" <wthoma...@hotmail.com> wrote in message
>
> news:e3c53d79-aac1-4c43-bef7-(E-Mail Removed)...
>
>
>
> > In Excel 2003, i would like to be able to edit cells, specifically, by
> > adding to the end of a cell entry
> > an asteric, and then have an Input box for the user to enter a number.
> > Example, if the active cell's contents were * *"Apples * 5", and the
> > macro invoked, an input box would appear, and, if the user entered
> > "3" in the box, the cell contents would now read " Apples * 5*3". The
> > input should be restricted to numbers, such as * "3" or "22" *or
> > "2.25" or 0.333, etc.
>
> > Thank you very much,
>
> > Tonso- Hide quoted text -
>
> - Show quoted text -

Rick,

Thank you so much! I had no idea how to accomplish this! You made it
look so easy.

Thank again for your expert help!

Tonso