I need assistance. I am teaching myself some aspects of
VBA programming using Excel 2000. What I would like to do
is 1) input a range of data using the InputBox command; 2)
perform an operation on each cell within the given input
range. I have tried several times to write a simple set
of code to encompass the above functionality, but have not
had much success. Below is a recent attempt.

Sub conv2()
Dim cel As Range
Dim celobj
Dim NumberElements
cel = InputBox("Enter range (Ex. B2:B9)")
NumElements = UBound(cel) - LBound(cel) + 1
MsgBox "Number of elements is " & NumElements
For Each celobj In cel
If IsNumeric(myobj) Then
myobj.Value = myobj.Value + 1
End If
Next
End Sub

Any help would be most appreciated.

Thanks
Ron Allred