VB2005で、Excel 2010に罫線を描く。

質問

VB2005で、Excel 2010に罫線を描く。
※　VB2005で技術計算をし、[Excel 2010] に資料を作成しています。
※　[Windows XP]＋[Excel 2005] では正常に作動するコードを
　　 [Windows 7]＋[Excel 2010] 上のＶＢ2005に移植すると、罫線の
　　 描画部分でエラー表示が出ます。
※　[Excel 2010] の Open コードは下記です。
※　ファイルを開くコード
　　 Me.Hide()
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.workbooks.add
xlSheet = xlBook.sheets("sheet1")
xlBook.application.Visible = True
Me.Show()
MsgBox("Excelファイルは開きましたか", 0, "確認")
Excel転記ToolStripMenuItem.Enabled = True
　　　 教えて下さい。

{質問追記}

※各セルへのテキスト記入、セル幅・高さ・フォント変更等は出来ます。

※　何かの認識コードが不足しているのでしょうか。罫線だけが引けません
　　　　　　With xlApp.Workbooks(1).Worksheets("Sheet1")
'---------------------------------------------------------------
.xlRange(.Cells(i1, j1), .Cells(i2, j2)).Borders.LineStyle = xlApp.XlLineStyle.xlContinuous
'--------------------------------------------------------------------------
End With

※エラー内容１（上コードに対し）
　　　　　 「公開メンバ 'xlRange' は型 'Worksheet' に見つかりませんでした。」

　　※エラー内容２
Excelのマクロを引用して、コードを書くと、デバックでエラーになります。
Selection.Borders(xlDiagonalDown).LinStyle = xlNone は

　　　　　名前 "Selection"は宣言されていません。
　　　　　名前 "xlDiagonalDown"は宣言されていません。
　　　　　名前 "xlNone"は宣言されていません。

回答No.1

m-take0220

＞ .xlRange(.Cells(i1, j1), .Cells(i2, j2)).Borders.LineStyle = xlApp.XlLineStyle.xlContinuous

xlRangeじゃなくてRangeでは?