체크박스 연동하여 모든 시트 적용하는 방법

@OUGI 님 정말 감사합니다.!!

이런 방법이 있는지 몰랐습니다.

Sub 체크박스자동셀연결()
Dim chkbox As CheckBox
Dim right As Long
right = 1 '체크박스에서 오른쪽으로 1칸

For Each chkbox In ActiveSheet.CheckBoxes
   With chkbox
      .LinkedCell = _
         .TopLeftCell.Offset(0, right).Address
   End With
Next chkbox

End Sub

위와 같이 적용할 수 있을 것 같은데 해당 적용 위치를 변경하면 될까요?

@OUGI 님 감사합니다.

그런데 그렇게 적용하면 저 과일이름에 맞는 Vlookup이나 해당 정보를 못끌어오지 않나요?

셀을 연결하게 되면 적용했던 함수가 단순히 TRUE or FALSE로 되는데 제가 잘못한건가요?