Passing Custom Class Variables through Functions

[Xiazer]

I am trying to pass a custom class through a function, I can watch th
variable, it gets passed to the function but when it goes to b
returned I get this error,
*Object doesn't support this property or method (Erro
438)*
Am I doing the syntax wrong or something, here is the function.
Function ChangeOffSet(SSheet As SSched)
' This Sets the Offset of the Variables
If (SSheet.WorkMonth + SSheet.DaysOn)
SSheet.DaysOff < 0 Then
SSheet.WorkMonth = (SSheet.WorkMonth
SSheet.DaysOn)
Else
SSheet.WorkMonth = SSheet.WorkMonth
(SSheet.DaysOn)
End If

ChangeOffSet = SSheet

End Function

When I call it It looks like this
I use the same variable names.
*SSheet = ChangeOffSet(SSheet)*

Thanks a bunc

 

[Andy Pope]

Hi,

As it is an object you need to use the Set command.

Set SSheet = ChangeOffSet(SSheet)

and in the function

set ChangeOffSet = SSheet

Cheers
Andy

 

[Xiazer]

Thanks Andy, your my hero!