Subscript out of range error
 

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

Subscript out of range error
 

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

Subscript out of range error
 

Now I feel a little stupid! Not only did I not have 'set', xlValue does not
esist! It should have read xlValues.

Thanks for you help.

Guy

"Tom Ogilvy" wrote:

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