질문 드립니다

@오빠두엑셀 님 아래와 같은 모듈을 작성하여 (유튜브에서 가르쳐준 분 내용을 보고 일일이 타이핑하여 작성 ㅠㅠ) 실행했으나 오류가 떠서 어떤 부분이 문제인지 문의하고 싶은데 문의 글 작성이 안되네요

Sub 현재가가져오기()
Dim ie As Object
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("MicrosoftEdge.Application")

ie.Navigate strURL
ie.Visible = False

Do While (ie.ReadyState <> 4 Or ie.Busy = True)
DoEvents
Loop

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

ie.Quit
Set ie = nothing

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

Next i

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

End Sub