I have a worksheet with lots of rows of data in...

column J contains cells that have data as follows,,not always seperated by the underscore
U25593(10)_U25592(16)_H3893(3)_U25504(13)

I need to "add" up the amounts in brackets e.g the one above totals 42 (the 10+16+3+13).

Can I do this in VBA rather than trawling manually through literally a thousand rows?

The other bit, that is a "desirable" rather than essential is to give a % - ie H3893 = 3/42 (in %) format?