ximage 구문 에러관련 문의

제가 ximage에서 크기 조정 옵션을 없애려고 합니다.

그 문의 내용으로는 아래 코드 중 크기 조정 옵션에 해당하는 코드를 찾아서 삭제하고 싶습니다.

Function xIMAGE(Link, Optional Margin As Long = 0, Optional UpdateImage As Boolean = True)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.
 
'■ xIMAGE 함수
'■ 인터넷 URL 또는 특정 파일 경로의 이미지를 삽입합니다.
'■ 사용방법
'=xImage("https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png")
'■ 인수 설명
'_____________Link                  : 웹 URL 또는 파일 경로입니다. 웹 URL일 경우 링크는 반드시 https:// 또는 http:// 로 시작해야 합니다.
'_____________Margin             : 셀 안에 삽입할 그림에 여백을 줍니다. 픽셀 단위로 입력합니다. 기본값은 0(=여백없음)입니다.
'_____________UpdateImage   : TRUE 일 경우 기존 셀 안에 삽입되어 있던 그림을 삭제하고 새로운 그림으로 갱신합니다. 기본값은 TRUE 입니다.
'###############################################################
 
Dim aRng As Range: Dim aWS As Worksheet
Dim shpImg As Shape
 
On Error Resume Next
 
Set aRng = Application.Caller
Set aWS = aRng.Parent
 
Application.EnableEvents = False
 
If IsEmpty(Link) Then xIMAGE = CVErr(xlValue): Exit Function
 
For Each shpImg In aWS.Shapes
    If shpImg.TopLeftCell.Address = aRng.Address Then
        If UpdateImage = True Then
            shpImg.Delete
        Else
            xIMAGE = True
            GoTo Final
            Exit Function
        End If
    End If
Next
 
Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
aRng.Left + Margin, aRng.Top + Margin, _
aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2)
shpImg.Placement = xlMoveAndSize
 
If shpImg Is Nothing Then
    xIMAGE = CVErr(xlValue)
Else
    xIMAGE = True
End If
 
Final:
Set shpImg = Nothing:    Set aRng = Nothing:    Set aWS = Nothing
Application.EnableEvents = True
 
End Function

관련 게시판에 이미 물어보아 얻은 답변 내용은 위 붉은 색 글씨를 삭제해보라는 답변이었는데요

그 결과는 아래의 이미지와 같이 구문 에러가 났습니다;;

혹시 다른 연결된 문제가 있을까 해서 "Funtion xIMAGE"에서 "Optional Margin As Long = 0"도 삭제해보고

코드를 이렇게 저렇게 해보았는데도 안되네요... ㅠ_ㅠ

부디 도움을 부탁드립니다