Passing Custom Class Variables through Functions

I am trying to pass a custom class through a function, I can watch the variable, it gets passed to the function but when it goes to be returned I get this error,

Object doesn't support this property or method (Error 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 bunch

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 wrote:
> I am trying to pass a custom class through a function, I can watch the
> variable, it gets passed to the function but when it goes to be
> returned I get this error,
> *Object doesn't support this property or method (Error
> 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 bunch
>
>

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Thanks Andy, your my hero!