Object doesn't support this property or method: 'doc.GetFrame'

[#1]

i m trying to set border to table it gives an error    "Object doesn't support this property or method: 'doc.GetFrame'

Sub TableBorder

Set doc = ActiveDocument.GetSheetObject("CH01")

frame = doc.GetFrame

frame.BorderEffect = 1    'depressed border

doc.SetBorder frame

end sub

Can anyone help on this