101

view

＜補足への回答＞

参考URLにもあると思いますが――

On Error Goto ER
以降の処理がエラーならエラー処理ルーティンに行きなさい、という意味です。
"ER"の部分は参考URLの先では "GoTo ErrorHandler" と記述されていますが、自分なりにわかりやすい文字列でOKです。

ER: On Error Goto 0
先に生じたエラーを解消します。

ファイルがないことを明示したい場合は

Private Sub CommandButton6_Click()
On Error GoTo ER
TextBox12.Value = ActiveCell.Value
Image1.Picture = LoadPicture("C:Documents and SettingS写真" & TextBox12.Text & ".jpg")
Exit Sub ’ファイルありの場合はエラーメッセージ不要ですので、ここで終了。
ER: On Error GoTo 0
MsgBox "該当ファイルがありません。"
End Sub

のようにすることもできます。


＜前回の回答＞

一例ですが――

Private Sub CommandButton6_Click()
On Error GoTo ER
TextBox12.Value = ActiveCell.Value
Image1.Picture = LoadPicture("C:Documents and SettingS写真" & TextBox12.Text & ".jpg")
ER: On Error GoTo 0
End Sub

↓参考URL（「Excel マクロ エラー処理」でGoogle検索しました）
_ttp://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_error.html