Hi,
Try :
Sub test2()
Dim c
With Sheets("calculator")
On Error Resume Next
For i = 1 To .Shapes.Count
Var = .Shapes(i).OLEFormat.progID
If Err.Number <> 0 Then
Err.Clear
Else
If .Shapes(i).OLEFormat.progID = "Forms.TextBox.1" _
Dear Santosh,
Please find & see attached sheet, if it help..
--
Thanks & regards,
Noorain Ansari
On Wed, Apr 6, 2011 at 3:00 AM, santosh subudhi <
santoshkumar.subu...@gmail.com> wrote:
> Hi Group,
>
> Need a code to clear the values of all the text boxes ,comboboxes in one
> click in a excel
