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
Bookmarks