AKtivere en celle i et OLE Excel Ark

Jeg sidder og arbejder på et ole excelark i VB.

Jeg kan skrive til en celle i arket ved:

Set sht = OLE1.object.Sheets("Dataops") 
Tekst = FormSerial.Sartorius(0)'en string   
Set rng = sht.Cells(65000, 2).End(xlUp).Offset(1)
rng = Tekst

Efter kort tid forsvinder data dog ud af syne
Det ville være rart at cellen der blev skrevet til også blev aktiveret.

Rng.Activate duer ikke