Visual Basic - problema con Application.ScreenUpdating = False

Hola tengo este codigo : y me dice que no es una variable definida Application.ScreenUpdating = False y ActiveSheet.Pictures.Insert y no se porque es is me podesi ayudar.
Gracias , un saludo.


Sub test()
Dim MyPic As Object
Application.ScreenUpdating = False
Set MyPic = ActiveSheet.Pictures.Insert( _
****"C:TempMy Picture.jpg")
Call SendMail(MyPic)
MyPic.Delete
Set MyPic = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub SendMail(ByRef MyPic As Object)

Dim Notes As Object, db As Object, WorkSpace As Object
Dim UIdoc As Object, UserName As String, MailDbName As String

Set Notes = CreateObject("Notes.NotesSession")

UserName = Notes.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
****(Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

Set db = Notes.GetDataBase(vbNullString, MailDbName)

Set WorkSpace = CreateObject("Notes.NotesUIWorkspace")
Call WorkSpace.ComposeDocument(, , "Memo")

Set UIdoc = WorkSpace.CurrentDocument
Call UIdoc.FieldSetText("SendTo", "Jane C Doe") 'Recipient
Call UIdoc.FieldSetText("Subject", "Pic Time")

MyPic.Copy
Call UIdoc.GotoField("Body")
Call UIdoc.InsertText(WorksheetFunction.Substitute( _
****"Hello!@@Check out the pic eh:@@", _
****"@", vbCrLf))
Call UIdoc.Paste
Call UIdoc.InsertText(Application.Substitute( _
****"@@Later,@Me", "@", vbCrLf))
Application.CutCopyMode = False

Call UIdoc.Send(False)
UIdoc.Close

Set UIdoc = Nothing: Set WorkSpace = Nothing
Set db = Nothing: Set Notes = Nothing

End Sub

Call it from test().

esos objetos son de vba que se usa en excel. esto no se usa en vb6.