엑셀 기초, 4시간 완성 - 원데이 챌린지 [챕터 1]

@navy67 님 아래의 유튜브 강의를 듣고
엑셀 2016 버전에서 개발도구 메뉴에서 Visual Basic
삽입 - 모듈- Module1이 표시되면 오른쪽 입력창에 아래의 내용을
직접 타이필해서 모듈을 작성해보았으나
실행하니까 오류가 납니다.

" target="_blank" rel="nofollow noopener">

Sub 현재가가져오기()

Dim ie As internetExplorer
Dim strURL As String
Dim i As integer

ActiveSheet.Buttons("단추 1").Text = "현재가 가져오기"

For i = 3 To Range("B3000").End(xlUp).Row
strURL ="https://finance.naver.com/item/main.naver?code=" & Range("B" & i)
Set ie = CreateObject("InternetExplorer.application")

ie.Navigate strURL
ie.Visible = False

Do while (ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy = True)
DoEvents
Loop

Range("C" & i) = ie.Document.getElementByID("nowVal_td_0").innerHTML

ie.Quit
Set ie = nothing

ActiveSheet.Buttons("단추 1").Text = "현재가 가져오는 중..."

Next i

ActiveSheet.Buttons("단추 1").Text = "현재가 가져오기"

End Sub