Change the font of a specific cell

[Kilroy]

Hello all I'm trying to change the font of a specific cell. I have tried recording a macro but it isn't working. I need the 4th cell of row 1 to change to font size 10. What I have so far is:

Sub column4font()
'
' column4font Macro
' column4font
'
Selection.SelectCell
Selection.Font.Size = 10
End Sub

[gmaxey]

What table? The following will process the table with the insertion point:


Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Set oTbl = Selection.Tables(1)
oTbl.Cell(1, 4).Range.Font.Size = 10
lbl_Exit:
Exit Sub
End Sub

[Kilroy]

Thanks Greg works perfect. I'm still trying to figure the whole recording a macro thing and cannot figure out how to target specific cells during this process.

[gmaxey]

At best the recorder is like half a yardstick.