VBからグラフ作成してますがsheetが増えると作成できません。

Question

お世話になっております。
VB超初心者です。
VBからExcelファイルを開いてグラフの作成をしていますが、sheetが増えるとエラーが出てストップしてしまいます。
sheetが１枚のファイルは問題なく作成できます。（sheetの名前はsheet1,sheet2です）
原因がわかる方がいらっしゃいましたら教えていただけないでしょうか。

Dim wb As Microsoft.Office.Interop.Excel.Workbook
'ファイルオープン
wb = ex.Workbooks.Open(”ファイル名”)
sh = wb.Sheets("sheet" + p)　←pはStringで指定
' グラフ作成処理
Dim chartObjects = DirectCast(sh.ChartObjects, Excel.ChartObjects)
Dim chartObject = chartObjects.Add(10, 30, 800, 500)　←サーバーによって例外が返されました。 (HRESULT からの例外:0x80010105 が出ます
Dim chart = chartObject.Chart

よろしくお願いします。

Answer 1

wb.Sheets(w).Select
を追加することで解決しました。
sheetの指定が終わっていると勘違いしていました。
お騒がせしました。