vba - Excel マクロの実行時エラー 424

Question

私はマクロを初めて使用します。セルをフォーマットし、列 A のバーコードを生成する必要があるマクロの作成に取り組んでいます。ブログで指定されているように、文字列をバーコードに変換する関数 Code128() を作成しました。そしてそれはうまくいきます。

以下のように作成しているマクロでそれらを使用しています

 With ActiveSheet.PageSetup
 .PrintTitleRows = "$1:$1"
 .PrintGridlines = True

 .Orientation = xlLandscape
 .PaperSize = xlPaperA4

 .Zoom = False
 .FitToPagesWide = 1
 .FitToPagesTall = False

End With

Columns("A").ColumnWidth = 10

For Each Target In Range("A1", Range("A" & Rows.Count).End(xlUp))
If Target.Value <> vbNullString Then
    Target.Value = PERSONAL.XLSB!Code128(Target.Value)
    Target.Resize(, 12).WrapText = True
    Target.Font = "Code 128"
End If
Next

Next

しかし、Excelでマクロを実行すると、次のような実行時エラーが発生します