What is Table1? The name of a module, a class name or what?

Maybe you want.

## Thisworkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim tPl As Table1

Set tP1 = New Table1

If Sh.Name = SHEETTP Then
tPl.tblChanged = True '<<<< here occurs the error
End If

End Sub



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

wrote in message
oups.com...
Hello,

I want to set a Flag being passed from "ThisWorkbook" to "Table1" by
purpose. I use following code:

'## Thisworkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim tPl As Table1

If Sh.Name = SHEETTP Then
tPl.tblChanged = True '<<<< here occurs the error
End If

End Sub

'## Table1:

Private m_tblChanged
Public Property Get tblChanged() As Boolean
tblChanged = m_tblChanged
End Property
Public Property Let tblChanged(ByVal setFlag As Boolean)
m_tblChanged = setFlag
End Property

private sub cmdDoSomething_click()
action
me.tblChanged=False
end sub

Any hint ?? thanx a lot!!

Christian