Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[tawnee jamison]

I am using two of these codes for a worksheet that needs them both. However, the second one does not work when it is in with the first. It does work alone.
Is there a way I can use these together?

Thanks, Tawnee.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 29 Then Exit Sub

On Error GoTo errhandler
Application.EnableEvents = False
With Target.Offset(5, 5)
If .Value = "" Then
.Value = "X"
Else
.Value = ""
End If
End With

errhandler:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If ActiveCell.Address = "$A$1" Then

ActiveWorkbook.SaveAs FileName:="\\DTCNAS-ILSP002\Pricing\ExtendedLockCompleted\" & ActiveSheet.Range("as32")

Else
'Do Nothing
End If

End Sub