Specific Cell Change event

[zendog1960]

How would I modify the following specific code to run when just one cell changes? It is running now when anything on the sheet changes as I am aware that that is what the code currently is supposed to do.

Private Sub Worksheet_Change(ByVal Target As Range)
    Copy_Sheet
End Sub
Sub Copy_Sheet()
Dim wSht As Worksheet
Dim shtName As String
shtName = Sheets("Location Summary").Range("J11")
For Each wSht In Worksheets
    If wSht.Name = shtName Then
        MsgBox "Sheet already exists...Make necessary " & _
            "corrections and try again."
        Exit Sub
    End If
Next wSht
Sheets("Template").Copy After:=Sheets("Coin Count")
Sheets("Template").Name = shtName
Sheets(shtName).Move After:=Sheets("Location Summary")
Sheets(shtName).Range("A1") = shtName
Sheets("Template (2)").Name = ("Template")
Sheets("Location Summary").Activate
End Sub

 

[VoG]

    If Target.Address(False, False) <> "A1" Then Call CopySheet

 

[zendog1960]

I tried...No GO

This didn't do anything. Can you help?

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address(False, False) <> "A1" Then Call Copy_Sheet
End Sub

Sub Copy_Sheet()
Dim wSht As Worksheet
Dim shtName As String
shtName = Sheets("Location Summary").Range("J11")
For Each wSht In Worksheets
    If wSht.Name = shtName Then
        MsgBox "Sheet already exists...Make necessary " & _
            "corrections and try again."
        Exit Sub
    End If
Next wSht
Sheets("Template").Copy After:=Sheets("Coin Count")
Sheets("Template").Name = shtName
Sheets(shtName).Move After:=Sheets("Location Summary")
Sheets(shtName).Range("A1") = shtName
Sheets("Template (2)").Name = ("Template")
Sheets("Location Summary").Activate
End Sub

 

[zendog1960]

All I want is to have the code run in the event the data in J11 changes, nothing else.

 

[facethegod]

Try this

If Not Target.Address() = Range("J11").Address() Then
    Exit Sub
Else: Call Copy_Sheet
End If

HTH FTG

 

[Scott Huish]

or just:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$11" Then Call CopySheet
End Sub