First, thank everyone so much for all of your helpful tips and everything this site offers.

I am using the following UDF to clear the contents of a range of cells and would like to add the ability to change the text color of some of the cells back to black. Can this be done?

"Private Sub CLEAR_Click()

If MsgBox("Are you sure ?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
Else
Range("B5,b7,c7,b10:b12,b14:b16,b18:b20,c23,e3:e500,f3:f500,g3:g500,h3:h500,i3:i500,j3:j500,m2:m9,m14,m15,n5,l18:l23,m26,m28:m35,m39:m46,m50:m57,m61:m68,m72:m79,m83:m90,m94:m101,m105:m112,n31,n42,n53,n64,n75,n86,n97,n108").Select
Selection.ClearContents

End If

End Sub"

I want to change the following ranges back to black text: b10:b12,b14:b16,b18:b20 - c23 - e3:e500,f3:f500,g3:g500,h3:h500,i3:i500,j3:j500.

Any help would be greatly appreciated.

Adam