Microsoft Access 掲示板

ざっとみたところ下記の箇所があきらかな間違いですので、修正してみてください。

-            With Sh1.Shapes.AddShape(msoOval, lef + wd / 2, h - 0.5, hg + 1, hg + 1)
+            With Sh1.Shapes.AddShape(msoshapeOval, lef + wd / 2, h - 0.5, hg + 1, hg + 1)

-             .Line.ForeColor.RGB = vbBlock
+             .Line.ForeColor.RGB = vbBlack

これでとりあえずはエラーなく動くと思います。

もし自分が書くなら下記のような感じになります。

Sub test1()
    With ThisWorkbook.Worksheets("申請書")
        Dim l As Single, t As Single, w As Single, h As Single
        With .Range("aK23:aL23")
            l = .Left
            t = .Top
            w = .Width
            h = .Height
        End With
        With .Shapes.AddShape(msoShapeOval, l + w / 2 - h / 2, t, h, h)
            .Fill.Visible = msoFalse
            .Line.Weight = 1
            .Line.ForeColor.RGB = vbBlack
        End With
    End With
End Sub

ちなみに、
ここは Microsoft Access に関する質問をする掲示板です。次回からは適切な掲示板で質問してください。

例えば、
エクセル質問掲示板 質問 疑問 使い方 掲示板 エクセル Excel [エクセルの学校]
Excel VBA を学ぶなら moug モーグ｜Excel （VBA）