11-22-2012, 04:50 PM
Try this,
Code:
For i=1 to ColumnCount
For j=1 to RowCount
c= objSheet.Cells(j,i).Value
k= InStr(c,")")
if k>0
objSheet.Cells(j,i).Value= Mid(c,k+1)
end if
Next
Next