How to make this code work in VB. This code works fine when used as Macro but when I put the same code in VB it doesnot.Can anybody help me out?
Option Explicit
Sub AddTable()
Dim Tbl As Table
Set Tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=4, NumColumns:=2)
Tbl.Range.Font.Bold = True
Tbl.Cell(1, 1).Range.Text = "AAA"
Tbl.Cell(1, 2).Range.Text = "111"
End Sub