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" <tierscheiss1977@hotmail.com> wrote in message
news:uaeJ$BfcFHA.2440@TK2MSFTNGP10.phx.gbl...
> 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