G
Guest
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
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