Thread: Why R/T Error?
View Single Post
  #1   Report Post  
Jim May
 
Posts: n/a
Default Why R/T Error?

Sub SumByEmployee()
Dim MyPick As String
Dim mTotal As Double
Dim rngemp As Range
mTotal = 0
MyPick = InputBox("What Employee Do you Want?")
Set rngemp = Range("C6:C15") 'list of employees - single names
For Each c In rngemp
If c = MyPick Then
mTotal = mTotal + rngemp.Offset(, -1).Value 'R/T error happens here
End If
Next c
Range("B18").Value = mTotal
End Sub

Thanks for any help!!