Worksheets(1).OLEObjects.Add FileName:="arcade.gif"