엑셀 클립보드 붙여넣을때 이미지 유형인지 유무 확인 문제관련

Sub ImageCheck()
Dim WS As Worksheet
Dim shp As Shape
 
On Error GoTo EH:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
 
Set WS = ThisWorkbook.Worksheets.Add
WS.Paste
For Each shp In WS.Shapes
    MsgBox "이미지입니다."
    GoTo Finally:
Next
 
MsgBox "이미지가 아닙니다."
GoTo Finally:
 
Exit Sub
 
EH:
If Err.Number = 1004 Then
    MsgBox "비어있습니다."
    GoTo Finally:
End If
 
Exit Sub
 
Finally:
WS.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub