cPhones = rPhones.Find(.Customer, LookIn:=xlValue)

should be

set cPhones = rPhones.Find(.Customer, LookIn:=xlValue)

--
Regards,
Tom Ogilvy


"Guy Normandeau" wrote:

I'm getting error #9 subscript of of range error that I cannot figure out.

the error occors on the line with

cPhones = rPhones.Find(.Customer, LookIn:=xlValue)

Below is part of the code that give me the issue.



Sub sSetupPhones(recBP As defBP, pCustomer As String)

Dim nIdx As Integer

Dim cPhones As Range
Dim cFaxes As Range

Dim rPhones As Range
Dim rFaxes As Range

Set rPhones = Range("tPhones")
Set rFaxes = Range("tFaxes")

With recBP

cPhones = rPhones.Find(.Customer, LookIn:=xlValue)
If Not cPhones Is Nothing Then
...


recBP is a custom type which does have the following declaration

type defBP
Customer As String ' A Customer Number
...

CommID(6) As String ' CT Communication Identification
CommType(6) As String ' CU Communication Type
CommExt(6) As String ' CV Communication Extention
CommRemark(6) As String
Message As String ' DI Message
end type

The subroutine sSetupPhone is called from another sub program that passes
the type structure and the .customer field has a value of "10026241"

Thanks in advance

Guy Normandeau