Changing background color of a cell in a Word Table 1

[ftpdoo]

Hi,

I'm trying to change the background colour of a cell through VBA.. The cursor is positioned in the required cell and I've tried the following code:

'SELECT THE WHOLE CELL
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
'CHANGE THE BACKGROUND COLOR
Selection.Cells.Shading.BackgroundPatternColor = wdColorGray30

But the following error was returned: <Object variable or with block not set!!> :-(

THNX,
JONATHAN

 

[Mossoft]

Your code works for me. However a simpler way of doing it, if the insertion point is (anywhere) in the cell, is:

Selection.Range.Cells.Shading.BackgroundPatternColor = wdColorGray30

i.e. No need to select whole cell explicitly

M