Excel大量複製核取方塊

請問我需要將核取方塊複製並在控制項格式裡連接相對的儲存格

例如: a1(核取方塊) 儲存格連接到 b1
a2(核取方塊) 儲存格連接到 b2 .....以此類推

我建了一個模組 如下 但核取方塊旁都會出現I123(儲存格位置) 有甚麼方法不讓他顯示嗎?
Sub addchkb()
Const col1 As String = "H"
Const col2 As String = "I"
For r = 173 To 174
ActiveSheet.CheckBoxes.Add(Range(col1 & r).Left, Range(col1 & r).Top, _
Range(col1 & r).Width, Range(col1 & r).Height).Select
With Selection
.Characters.Text = " " & Range(col2 & r).Address(0, 0)
.LinkedCell = Range(col2 & r).Address
End With
Next
End Sub