Return に対応する GoSub がありません。(エラー番号：3)

---

Sub Sample()
    Dim i As Long
    For i = 1 To 10
        Cells(i, 1) = i
    Next i
    Return    ''Returnの戻り先であるGoSubがない
End Sub

VBAなどの構造化言語では、GotoやGoSubなどを使うべきではないとされています。このエラーは、戻るGoSubがないのに、GoSubへ戻るためのReturnステートメントを実行したために発生します。基本通り、GotoやGoSubを使わないコードを書いていれば、ほとんどの方はお目にかからないエラーでしょう。