エクセル VBA にて IE のボタンがクリックできません；

エクセル　VBA　にて　IE　のボタンがクリックできません；

どなたか、ご存知の方がいましたら、ご教授のほど、よろしくお願いいたします。

ヤフオクの出品をエクセルVBAで作成していますが、ここから先に行けません；

ソースコードは↓

<tbody>
<tr>
<td align="center"><table cellpadding="2" cellspacing="2" style="margin-bottom:0;">
<tbody><tr>
<td><input id="auc_preview_back" onClick="Ya.submit(document.auction, 'http://pageinfo16.auctions.yahoo.co.jp/jp/show/u … type="button" value="修正する">
</td>
<td> </td>
<td><input id="btnEditConfirm" onClick="Ya.submit(document.auction, 'http://edit16.auctions.yahoo.co.jp/jp/config/sub … type="button" value="ガイドラインと以下の注意事項に同意して更新する"></td>
</tr>
</tbody></table></td>
</tr>
<tr>
<td align="center"><table width="700" cellspacing="0" cellpadding="4" border="0">
<tbody><tr>



この "修正する"　ボタンと　"ガイドラインと以下の注意事項に同意して更新する"　ボタン

があるのですが、うまく押せません；


書いているコードは↓

For Each objINPUT In objIE.document.all.tags("td") 'Inputのタグを.allから抜く
If objINPUT.Value = "ガイドラインと以下の注意事項に同意して出品する" Then
'見つけたINPUTオブジェクト(ボタン)を.Clickクリックする
objINPUT.Click
'用が済んだので(見つかったので)ループを抜ける
Exit For
End If
Next


'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents
Wend



For Each objINPUT In objIE.document.all.tags("input") 'Inputのタグを.allから抜く
If objINPUT.Value = "修正する" Then
'見つけたINPUTオブジェクト(ボタン)を.Clickクリックする
objINPUT.Click
'用が済んだので(見つかったので)ループを抜ける
Exit For
End If
Next


'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents
Wend



ここで詰まってしまい、先に進めません

質問者からの補足コメント

• 

  For Each objINPUT In objIE.document.Forms(0).All
  
  If objINPUT.Title = "修正する" Then
  '見つけたINPUTオブジェクト(ボタン)を.Clickクリックする
  objINPUT.Click
  '用が済んだので(見つかったので)ループを抜ける
  Exit For
  End If
  Next
  
  
  'ページの表示完了を待ちます。
  While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
  DoEvents
  Wend
  
  
  でもダメでした、、、。

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/06/15 22:46

No.1 回答者： hallo-2007 回答日時： 2015/06/13 18:24

私が良く使う手ですが

For Each objINPUT In objIE.document.all.tags("td")
を
For Each objINPUT In objIE.document.Forms(0).All
とかで

或いは
If objINPUT.Title = "ガイドラインと以下の注意事項に同意して出品する" Then
とかではダメでしょうか。