Sinceramente ho riprovato il codice che hai postato è funziona correttamente, aggiungendo ovviamente:

codice:
Private Sub CommandButton1_Click()
StartMyTimer
End Sub
nel Foglio1
Manca qualcos'altro che non hai detto.