Can anyone please help me with following code?

I cant make this code work on all opened Excel Workbooks.
I only succeded on the workbook that contains the UserForm1, which contains
text box txtLayout.

I put this code under "ThisWorkbook" and it runs nicely but only localy on
the sheets included on this workbook.


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)

UserForm1.txtLayout = ActiveCell.Text

End Sub