Sub Main Dim App As Object Set App = CreateObject("<span style='color: #004080; font-weight: bold;'>Word</span>.Application") App.Move 20,30 ' move icon to 20,30 Set App = Nothing App.Quit ' run-time error (no object)End Sub