Excel sayfasına resim ekleme

[TAYYAR TUNA]

herkese merhaba
VB ile bir excel sayfası oluşturup orya resim ekliyorum
ilk sayfada normal çalışan kodlarım aynı işlemi tekrar yapınca hata veriyor
bu sorunun çözümü için yardımlarınızı bekliyorum
şimdiden teşekkürler

kodlarım:
Private Sub Command6_Click()
Dim myexcel As Object
Set myexcel = CreateObject("Excel.Application")
myexcel.Workbooks.Add
myexcel.Visible = True
With ActiveSheet.Pictures.Insert("C:\tayyar\data\brode\" & Text20 & ".bmp")
.Width = 190
.Height = 275
.Left = ActiveSheet.Cells(7, 3).Left
.top = ActiveSheet.Cells(7, 3).top
End With
Set myexcel = Nothing
myexcell = closed
End Sub