How to check if checkbox exists in a cell

[biznez]

Hi,
How can i check if there is a checkbox in a cell? I have this code below but its not working. Thank you!

for x = 2 to 10
If Not Application.Intersect(Cells(x,23), Cells(x,23).TopLeftCell) Is Nothing Then
            cells(x,24)="HasCheckbox"
End If
next x