Ross,
I've discovered a little problem with the code I gave you that occurs
when the chord to be sharpened is in column 1. The lyrics are in column
1 and the autofit causes autofit of the the lyrics. To overcome this
problem you should change the line of code just before the End With
from ".EntireColumn.AutoFit" to
"If ActiveCell.Column < 1 Then .EntireColumn.AutoFit"
Silly of me!
Ken Johnson