Thanks Dave it works perfact.

Thanks Again.
Himanshu

"Dave Peterson" wrote:

Building on Gareth's suggestion...

Option Explicit
Sub testme()
Dim Pict As Picture
For Each Pict In ActiveSheet.Pictures
If LCase(Pict.Name) Like "picture *" Then
Pict.TopLeftCell.Value = "Yes"
Pict.Delete
End If
Next Pict
End Sub

Hshah wrote:

I have imported data from web to excel and it comes with check boxes
(picture). When I select any particular cell with that check box, cell is
empty. I need to export this information in my Access database. When I do
that no check box is exported. Check boxes are marked as "picture 1" to
"picture 340". Every check box have diff. name. Is there any way I can
replace this check boxes with text as "YES" in the respective cell.

Please help

Thanks

--

Dave Peterson