Thank you. I copied your code into the test worksheet I had uploaded and plugged in a value to G9. It gives me 9, Actual: 9, and 7, Actual 7.
The values I want are actually OffsetRow and OffsetCol, so I can workaround the issue using this. I was hoping there was a way to directly pull the values, but your lines 17 and 18 will allow me to use this code elsewhere. Thank you very much.
P.S. Here's my resulting code. I still want to tweak it so I can edit values either above or below the line, but based on the change event, if I'm not careful I'll create a terminal loop as each update would result in another update.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim InX As Byte
Dim InY As Byte
Dim sVal As String
Dim r As Range
Dim OffsetRow As Long
Dim OffsetCol As Long
sVal = Target.Value
If Target.Cells.Count <> 1 Then
Set r = Range("Season2012")
Set isect = Application.Intersect(Target, r)
If isect Is Nothing Then 'Cell changed is not in this range
Else 'Value changed in range
InX = Target.Row - r.Row + 1 'Find Cell Row in range
InY = Target.Column - r.Column + 1 'Find Cell Col in range
If InX < InY Then
If UCase(sVal) = "W" Then 'Lost Game
r.Cells(InY, InX).Value = "L"
ElseIf UCase(sVal) = "L" Then 'Won game
r.Cells(InY, InX).Value = "W"
ElseIf UCase(sVal) = "S" Then 'Series Split
r.Cells(InY, InX).Value = "S"
Else ' Error
'Set Test1 = r.Item(OffsetRow, OffsetCol)
'Debug.Print Test1.Row & ", Actual: " & Target.Row
'Debug.Print Test1.Column & ", Actual: " & Target.Column