macro to not run on certain sheets

[bluepenink]

Hello

How can i integrate the following macro to not run on the following sheets

Sheet1, Sheet75 (i will be creating more sheets so is it possible to have a macro that I can fill with the sheet# as i create them)

this is my macro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
  On Error GoTo Rename_Error
  If Target.Address = "$C$4" And Len(Target.Value2) > 0 Then
    With Target.Offset(, 2)
        .Calculate
        Sh.Name = .Value2
    End With
  End If
  Exit Sub
Rename_Error:
  MsgBox "The sheet name could not be renamed. Please check " & vbCrLf & _
        "that you did not use illegal characters."
End Sub

pls and thx u!!

 

[Rick Rothstein]

Try adding this as the first line of code...

If Sh.Name = "Sheet1" Or Sh.Name = "Sheet75" Then Exit Sub

 

[bluepenink]

hello

does this appear correct to you?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
  If Sh.Name = "Sheet1" Or Sh.Name = "Sheet6" Or Sh.Name = "Sheet2" Or Sh.Name = "Sheet3" Or Sh.Name = "Sheet4" _
  Or Sh.Name = "Sheet5" Or Sh.Name = "Sheet7" Or Sh.Name = "Sheet8" Or Sh.Name = "Sheet9" Then Exit Sub
  On Error GoTo Rename_Error
  If Target.Address = "$C$5" And Len(Target.Value2) > 0 Then
    With Target.Offset(, 2)
        .Calculate
        Sh.Name = .Value2
    End With
  End If
  Exit Sub
Rename_Error:
  MsgBox "The sheet name could not be renamed. Please check " & vbCrLf & _
        "that you did not use illegal characters."
End Sub

 

[Rick Rothstein]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
  If Sh.Name = "Sheet1" Or Sh.Name = "Sheet6" Or Sh.Name = "Sheet2" Or Sh.Name = "Sheet3" Or Sh.Name = "Sheet4" _
  Or Sh.Name = "Sheet5" Or Sh.Name = "Sheet7" Or Sh.Name = "Sheet8" Or Sh.Name = "Sheet9" Then Exit Sub

Given that you are talking about that naming system for your sheets and that you are talking about numbers 1 through 9 inclusive, I would probably write it like this instead...

If Left(Sh.Name, 5) = "Sheet" And Mid(Sh.Name, 6) < 10 Then Exit Sub

However what you wrote looks like it should work as well. The easiest way to see is to actually run the code. As long as you don't save the workbook if something goes wrong, you can't "break" anything.