excel vba to add a symbol at the beginning of a cell

[BORUCH]

hi all

i have my excel table like below

Book1
	A	B
1	ITEM NUMBER	DESCRIPTION
2	12345	APPLES
3	000001	ORANGES
4	01000	PEARS
Sheet1

what i would like is an excel vba that pops a input box where i would enter the item number and it would put a * at the beginning of the description i would like to have the input box pop up multiple times for different item numbers till i type in the letters "END" that means I'm finished

 

[DanteAmor]

Hi @BORUCH . Thanks for posting on the forum.

Try this:

Sub ItemNumber()
  Dim n As Variant
  Dim f As Range
  
  Do While True
    n = InputBox("Enter Item Number")
    If LCase(n) = LCase("END") Or n = False Or n = "" Then Exit Do
    Set f = Range("A:A").Find(n, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      f.Offset(, 1).Value = "*" & f.Offset(, 1).Value
    End If
  Loop
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------​