Option Explicit
 
Dim WithEvents ex As Excel.Application
 
Private Sub Command1_Click()
    Set ex = New Excel.Application
 
    Call ex.Workbooks.Add
    ex.Visible = True
End Sub
 
Private Sub ex_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Target.Font.Color = vbRed 'oder was auch immer
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ex.Quit
    Set ex = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1