Between your End If and End With you could add:

Columns(x.Offset(0, 7).Column).Autofit
Range(x.Offset(0, 8).Address, _
x.Offset(0, 13).Address).Font.Size = 12 '<<or whatever size



"Peter" wrote in message
...
Hello

I'm doing a copy and paste of cell values, my question is, when I paste
the values into the cells, how do I get them to be all the same font, and
some of the cells are text string, so how do I have te cells adjust for
width?

Currently I've got
For Each x In Range("c1:c100")
If Not IsEmpty(x) Then


With SrcRange
Set rngFind = .Find(z)


If Not rngFind Is Nothing Then

x.Offset(0, 7) = rngFind.Offset(0, 1).Value
x.Offset(0, 8).Value = rngFind.Offset(0, 3).Value
x.Offset(0, 9).Value = rngFind.Offset(0, 6).Value
x.Offset(0, 10).Value = rngFind.Offset(0, 7).Value
x.Offset(0, 11).Value = rngFind.Offset(0, 8).Value
x.Offset(0, 12).Value = rngFind.Offset(0, 2).Value
x.Offset(0, 13).Value = rngFind.Offset(0, 4).Value
End If
End With

End If
Next x

and that gives me

Note different font size... then the first cell needs t obe adjusted for
the correct width.

5 Bay Base Station B 4/3/2009 220700 1/1/1900 12005
Some example Test B 1/28/2008 31100 11000 1/1/1900 10729
More Example text shown here A 1/27/2009 69374 2567 1/1/1900 11713