Dim Rng As Range
Dim cell As Range
Dim tmp
On Error Resume Next
Set Rng = Application.InputBox("Select A Range", Type:=8)
If Not Rng Is Nothing Then
MsgBox "You selected: " & Rng.Address
End If

For Each cell In Rng
If IsNumeric(cell.Value) Then
tmp = tmp + cell.Value
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jody L. Whitlock" wrote in message
...
Chip Pearson wrote:

Excel has its own InputBox, separate from the standard VBA
InputBox. When you set the Type parameter to 8, the use can
select a range using the mouse. E.g.,

Dim Rng As Range
On Error Resume Next
Set Rng = Application.InputBox("Select A Range", Type:=8)
If Not Rng Is Nothing Then
MsgBox "You selected: " & Rng.Address
End If

That worked very nicely, thank you! Now, I just need to figure out how
to loop through every cell in that range, tally up the results, then
write the tally into another cell. Is there a good site that explains
alot of this stuff?

Thanks,
jody