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