Hi all, I would like to change the text colour in a range after copy
from red to black. Here is my current macro:

Dim R As Range
On Error Resume Next
Set R = Application.InputBox("Select A Certificate Number:", _
"Transfer Clearance Register Information", Type:=8)
If R Is Nothing Then Exit Sub
On Error GoTo 0
Set R = R.Resize(1, 5)
R.Copy Sheets(2).Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Non-Conformances").Select

Hope you can help
Thanks