Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim olo As OLEObject
For Each olo In ActiveSheet.OLEObjects
If TypeName(olo.Object) = "ShockwaveFlash" Then
MsgBox "flash object found"
' proceed with file
End If
Next olo