Applying Worksheet Code to All Worksheets

Question

I have some rather lengthy code I tested on a single worksheet in a workbook with 110 sheets. here is the code:
Private Sub Worksheet_Change(ByVal target As Range)
If sysgroup = False Or syscater = False Or syscake = False Then
If Intersect(target, Range("A4:B39", "H4:I25")) Is Nothing Or target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
With target
If target.Column = 5 Or target.Column = 11 Then
If target.Column = 5 Then
target.HorizontalAlignment = xlCenter
If Columns("E").ColumnWidth <> 6 Then
Columns("E").ColumnWidth = 6
End If
Else
target.HorizontalAlignment = xlCenter
If Columns("K").ColumnWidth <> 6 Then
Columns("K").ColumnWidth = 6
End If
End If
End If
If target.Column = 6 Or target.Column = 12 Then
If target.Column = 6 Then
target.HorizontalAlignment = xlCenter
Columns("F").AutoFit
If Columns("F").ColumnWidth <> 6.75 Then
Columns("F").ColumnWidth = 6.75
End If
Else
target.HorizontalAlignment = xlCenter
Columns("L").AutoFit
If Columns("L").ColumnWidth <> 6.75 Then
Columns("L").ColumnWidth = 6.75
End If
End If
target.Value = UCase(target.Value)
Else
target.Value = WorksheetFunction.Proper(target.Value)
End If
With .Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
End With
With .Interior.Gradient.ColorStops.Add(0)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With .Interior.Gradient.ColorStops.Add(0.5)
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599993896298105
End With
With .Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End With
If target.Column = 1 Or target.Column = 8 Then
If target.Column = 1 Then
Columns("A").AutoFit
If Columns("A").ColumnWidth < 39 Then
Columns("A").ColumnWidth = 39
End If
Else
Columns("H").AutoFit
If Columns("H").ColumnWidth < 39 Then
Columns("H").ColumnWidth = 39
End If
End If
End If
If target.Column = 5 Or target.Column = 6 Then
If target.Column = 5 Then
groupshed = target.Value
strGrpName = target.Offset(0, -4).Value
Else
grouprows = target.Value
strGrpName = target.Offset(0, -5).Value
End If
If groupshed <> "" And grouprows <> "" Then
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Please Wait While Data is Updated..."
Set objGroupConn = New ADODB.Connection
Set objGUpdateCmd = New ADODB.Command
objGroupConn.ConnectionString = "Driver={SQL Server};Server=POSSERVER\GAMPOS;Database=GAM001;User ID=sa;Password=superior2u;"
objGroupConn.Open
Set objGUpdateCmd.ActiveConnection = objGroupConn
objGUpdateCmd.CommandText = "UPDATE dbo.tblgroups SET ShedAssignment = '" & groupshed & "', ShedRow = '" & grouprows & "'" _
& " WHERE((dbo.tblgroups.Visitdate)= '" & vdate & "' AND InCalendar = 1 And Catered = 0 AND GroupName = '" & strGrpName & "' )"
objGUpdateCmd.CommandType = adCmdText
objGUpdateCmd.Execute
objGroupConn.Close
groupshed = ""
grouprows = ""
strGrpName = ""
Application.StatusBar = False
End If
End If
If target.Column = 11 Or target.Column = 12 Then
If target.Column = 11 Then
catershed = target.Value
strGrpName = target.Offset(0, -3).Value
Else
caterrows = target.Value
strGrpName = target.Offset(0, -4).Value
End If
If catershed <> "" And caterrows <> "" Then
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Please Wait While Data is Updated..."
Set objGroupConn = New ADODB.Connection
Set objGUpdateCmd = New ADODB.Command
objGroupConn.ConnectionString = "Driver={SQL Server};Server=POSSERVER\GAMPOS;Database=GAM001;User ID=sa;Password=superior2u;"
objGroupConn.Open
Set objGUpdateCmd.ActiveConnection = objGroupConn
objGUpdateCmd.CommandText = "UPDATE dbo.tblgroups SET ShedAssignment = '" & catershed & "', ShedRow = '" & caterrows & "'" _
& " WHERE((dbo.tblgroups.Visitdate)= '" & vdate & "' AND InCalendar = 1 AND Catered = 1 AND GroupName = '" & strGrpName & "' )"
objGUpdateCmd.CommandType = adCmdText
objGUpdateCmd.Execute
objGroupConn.Close
catershed = ""
caterrows = ""
strGrpName = ""
Application.StatusBar = False
End If
End If
Application.EnableEvents = True
End If
End Sub
The issue now is using this same code for all 100 sheets in the workbook.  I tried creating a method in ThisWorkbook...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
...with the code from the first block pasted in.  I am getting a variable not defined error at my SET statements.
I would rather not have to copy all this code to each worksheet if at all possible.  Any thoughts?

Answer 1

Prefix all occurrences of Range and Columns with Sh. to specify that the range and columns belong to the sheet that caused the event. For example:
If Intersect(target, Sh.Range("A4:B39",
"H4:I25")) Is
Nothing Or target.Cells.Count
> 1 Then
Exit Sub
and
If Sh.Columns("E").ColumnWidth
<> 6 Then
Regards, Hans Vogelaar (http://www.eileenslounge.com)