Private Sub CommandButton1_Click()

Dim myCell As Range

For Each myCell In Selection.Cells

myCell.Font.ColorIndex = 50
Next myCell

End Sub


"millwalll" wrote in message
...
hi all,
Is there a way in a form to make a button that on click will change the
colour of text on words I select ?

many thanks