>Sheets(b).Select 　⇒エクセル２００７でしか検証していませんので何とも云えませんが、Sheets(b)がactiveでないからだと思う。 　　Sheets(b).Activateでお試しください。

基本的なことですが、モジュールの親オブジェクトは何かということを理解していませんね。仮に、シートモジュールで動かすとすれば、 >Sheets(b).Select >Range("A1").Select シートモジュールでは、ここで親オブジェクトに相違が出てしまい、エラーが出ます。 どこのシートモジュールか分かりませんが、このようになります。 しかし、なぜ、クリック範囲が、"B11:B683" となっているのか、想像の範囲でしかありません。また、Sheetsとするのは、Cellのないシートもあるのですから、少し乱暴なコードですが、そのままにします。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 　Dim ShName As String 　If Intersect(Target, Range("B11:B683")) Is Nothing Then Exit Sub 　If Target.Count > 1 Then Exit Sub 　If Target.Value = "" Then Exit Sub 　ShName = Target.Value 　On Error Resume Next 　Application.Goto Sheets(ShName).Range("A1") 　If Err.Number = 0 Then 　'エラーがなければ、C2に書きこむ 　　Worksheets("Sheet1").Range("C2").Value = Target.Value　 　End If 　On Error GoTo 0 End Sub

お書きになったコードでは Sheets(b).Selectの前に、 b = Range("C2).value の部分でエラーになると思います。 ("C2”)が("C2).になってますので。 それはともかく そのコードはB11からＢ683のセルにシート名があり、そのシート名のセルをクリックしたらそのシート名のシートを選択するという意味のですが、それが正しいですか？ そうだとしたらB11からＢ683のセルをクリックしたところ、そのセルに書かれた名前のシートが存在しなかったのではないでしょうか？

If Intersect(Target, Range("B11:b683")) Is Nothing Then Exit Sub Worksheets("Sheet1").Range("C2").Value = Target.Value がなければ動きますよ。 Worksheets("Sheet1").Range("C2").Value = Target.Value でC2の値がなしになっているのでは？