View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Incidental Incidental is offline
external usenet poster
 
Posts: 226
Default a range of cells to UserVal...

Hi Brad

You could try something like the code below all you would need to do
is load the value 209 into i when you open your sheet or userform.

Sub ShowSymbol()

If i = 220 Then i = 209

mylastsymbol = Range("H" & i)

UserVal = UCase(Application.InputBox _

("Symbol?", , mylastsymbol, , , , , 2))

i = i + 1

End Sub

hope this helps

S