Hi X Taol,

Try something like:

'=============
Public Sub Tester002()
UserForm1.Show vbModeless
Sheets(3).Activate
Sheets(3).Range("A1").Interior.ColorIndex = 6
End Sub
'<<=============

---
Regards,
Norman



"x taol" wrote in message
...


i opend the userform in modaless.
and then i want to activate not the userform but the xl application.

*** Sent via Developersdex http://www.developersdex.com ***