Dylan,

try this:

Sub NTR_9pt()
Dim r, c As Range
Set r = Selection 'Or any other range you want
For Each c In r
If c.Font.Name = "Times New Roman" Then
c.Font.Size = 9
End If
Next
End Sub

David Miller