[VBA] セル内の文字を取得してファイルOPEN

EXCEL　VBAにてご質問があります。

セル　A
　1　C:\001.PDF
　2　C:\002.PDF
　　　　・
　　　　・
　　　　・

セル：A1～に入っている文字列を実行する（PDFを開く）にはどうすればよろしいでしょうか。

A1だけであれば、

Sub TEST()
Dim aTE As String
aTE = Range("A1").Value
If Dir(aTE) <> "" Then
With CreateObject("WScript.Shell")
.Run """" & aTE & """"
End With
End If
End Sub

上記で、いけると思いますが、複数（任意）になるとわかりません。

VBAは、始めたばかりで、まだ、右も左も分からない超初心者ですが、
どなたか、教えて頂けないでしょうか。
よろしくお願いいたします。

No.1 回答者： chayamati 回答日時： 2012/09/14 07:14

VBAに拘りがありますか

ハイパーリンクではだめですか
これはExcel97にありました。
Excel2010は[追加]リボンの中にあります。

この回答へのお礼

＞VBAに拘りがありますか
あります。

説明不足で申し訳ありません。

お礼日時：2012/09/14 20:01

No.2 回答者： INTLINSIDE 回答日時： 2012/09/14 07:20

do .. loop とか for .. next で繰り返せます。

For .. Next
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

Array でもいいと思いますが。

For Each In .. Next
http://excel-mania.com/vba/for_next4.html

お好きな方を。

この回答へのお礼

参考になりました。ありがとうございます。

お礼日時：2012/09/14 19:58

No.3 ベストアンサー 回答者： kybo 回答日時： 2012/09/14 07:34

Sub TEST()

Dim aTE As String
Dim C As Range
For Each C In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
aTE = C.Value
If Dir(aTE) <> "" Then
With CreateObject("WScript.Shell")
.Run """" & aTE & """"
End With
End If
Next C
End Sub

でいいです。

この回答へのお礼

ありがとうございました。助かりました。

お礼日時：2012/09/14 19:57