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
|