編集を有効にすると範囲（ "My_Name"）に失敗する

Question

スプレッドシートがマクロ有効になっています。 「ThisWorkbook」領域には、ユーザーがクリックできる場所を確認するルーチンがあります。

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range) 

Dim WhichNumbers As String 
Dim WhichData As String 
Dim WhichStatuses As String 
Dim ToAddress As String 
Dim CCAddress As String 
Dim sFound As String 
Dim wsTemp As Workbook 
Dim sThisQuoteNumber As String 
Dim pdfShell As Object 

If sh.Name = "Report" Then 
' If we intersect with one of the Quote Numbers, then present him with a view of the PDF of the quote. 
If Not Intersect(Target, Range("QuoteNumber")) Is Nothing And (Selection.Count = 1) Then 
    iRow = Target.Row 
..... 

がここで何が起こっているかです：： すべてが正常に動作します。このコード は、ここでのコードの抜粋です。 ファイルを別のユーザーに電子メールで送信するか、ドライブに保存してファイルを開くとファイルは正常に表示されますが、上部に編集を有効にする必要があるというメッセージが表示されます。 「有効」ボタンを押すと、Range（ "QuoteNumber"）メソッドが失敗したことを示すエラーでプログラムが停止します。 メッセージボックスでは、「終了」または「デバッグ」することができます。 「終了」を押すと、メッセージボックスが消え、この時点からプログラムは正常に機能します。

何が起こっているのでしょうか？どうすればこのことが起こらないようにして、ユーザーの顔が爆発することはありませんか？

リッチ

Answer 1

念のため、あなたは右、ワークブックスコープとして名前付き範囲「QuoteNumber」を定義しましたか？また、 "QuoteNumber"範囲はこのワークブックにあります。

私はワークブックスコープとして "QuoteNumber" を定義し、それは範囲だが、 "Repot" シートにある、私はレンジ（：C10 A1）を使用しました。 Sheet（セルB3）の "レポート"のRange（A1：C10）内のセルの1つをクリックして、このワークブック（下のコードを添付）と私の同僚「行番号は3です」のMsgBoxテスト

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range) 

Dim WhichNumbers As String 
Dim WhichData As String 
Dim WhichStatuses As String 
Dim ToAddress As String 
Dim CCAddress As String 
Dim sFound As String 
Dim wsTemp As Workbook 
Dim sThisQuoteNumber As String 
Dim pdfShell As Object 

If sh.Name = "Report" Then 
    ' If we intersect with one of the Quote Numbers, then present him with a view of the PDF of the quote. 
    If Not Intersect(Target, Range("QuoteNumber")) Is Nothing And (Selection.Count = 1) Then 
     iRow = Target.Row 
     MsgBox "Row number is " & iRow 
    End If 
End If 

End Sub