Resolve the error.

[Verma Amit]

Below code trims the value for the selected cells.It Works fine But when i an trying this for 10Lacs Item it is showing "Run Time Error '1004':Application-defined or object defined error"

please help me...

Public Sub Callback13(control As IRibbonControl)
''propercase
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = Application.Trim(cell.Value)
End If
Next cell
End Sub

 

[Colin Legg]

It works okay for me provided the sheet isn't protected. Can you upload a simple, sample workbook for us to see?