質問: str End Sub ``` ### 試したこと 更新のSubをFunctionに変えてみましたが同じように固まってしまいました。 ### 補足情報(FW/ツールのバージョンなど) Excel2016です。
回答: ``` Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells(1, 1).Address = "$B$1" Then 'セルB1が変えられた時の処理 End If Call 廃棄物種類更新 Exit Sub myError: 'エラーだった時の処理 End Sub ``` 同じシートに書いてあるこちらの部分で、 Callを呼び出す位置をIf Target.Cells~~のIF内に入れなければならなかった ようでした。 お二方の回答のおかげでようやく気付くことができました、ありがとうございます。