I've had a go at this but I'm unable to get it working

Basically from the cells between J and P I need it to go through every cell (last row can be gathered from column a) and change:

Shape sizes:
ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

If the comment says:
Team: 1
Quality: 84

I need it to use the InStr function and only bold "Team:" and "Quality:"

Does anyone know how I can achieve this?

Help would be much appreciated