This code will open an embeded object. You need to get the name of the
embedded object

use this
for each shp in sheets("Sheet1")
msgbox(shp.name)
next shp


Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Sheets("Sheet1").OLEObjects("object 1").Activate

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Sheets("Sheet1").OLEObjects("object 1").Close

End Sub

"Roger on Excel" wrote:

I would like to have an embedded image be shown for a few seconds on the
startup of a XL workbook.

The flash screen image would be embedded in the workbook.

Can anyone help?