Option Explicit
Sub gcotterl()
Dim Check As String
Check = Range("M6").Value
If InStr(1, Check, "J") + InStr(1, Check, "L") > 0 Then
If Mid(Check, 3, 1) = "-" Then
Range("S6").Value = "X"
Else
Range("S6").Value = "Y"
End If
Else
Range("S6").Value = "Z"
End If
End Sub