Here's the other code. By restrict, I meant that the code below
doesn't work when the above code is in the sheet event. The code below
puts the value of cells in the last column (range is AbbNames) equal to
the cells in column 10 (range Abbreviated), and then updates any
changed values on another sheet, Schedules.

On Error GoTo errHandler

If Target.Count 1 Then Exit Sub

On Error Resume Next
Set rng = Target.Dependents
On Error GoTo 0
If Not rng Is Nothing Then
Set rng1 = Union(rng, Target)
Else
Set rng1 = Target
End If

On Error GoTo errHandler

If Not Application.Intersect(rng1, _
Application.Range("Abbreviated")) Is Nothing Then
strOld = Target.EntireRow.Range("IV1").Value
strNew = Target.EntireRow.Range("J1").Value

Application.EnableEvents = False
Application.ScreenUpdating = False

Application.Range("AbbNames").Value = _
Application.Range("Abbreviated").Value
End If


Set wsData = Worksheets("Schedules")

On Error GoTo errHandler

Set myRange = wsData.Range("Students")
For Each mycell In myRange
If mycell.Value = "" Then
Else
If strOld < strNew And strOld < "" Then

Application.EnableEvents = False
Application.ScreenUpdating = False

wsData.Range("Students").Replace What:=strOld, _
Replacement:=strNew, LookAt:=xlPart, _
SearchOrder:=xlByRows

End If
End If
Next

Application.Range("AbbNames").Value = _
Application.Range("Abbreviated").Value

errHandler:

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

If Err.Number < 0 Then _
MsgBox "Error occured " & Err.Number & vbNewLine & _
Err.Description

exitHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

Exit Sub

End Sub