Hello,
From the research I've done the VBA code won't allow these two CHANGES to happen and need to be combined. I keep getting "Ambiguous name detected: Worksheet_Change". I am a VBA noob and need assistance. Need the two codes below combined. Thank you all.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A5:A3000")) Is Nothing Then
With Target(1, 3)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub
AND
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 7 Then Exit Sub
Application.ScreenUpdating = False
Select Case Target.Value
Case "Hold"
Application.EnableEvents = False
Cells(Target.Row, 8).Value = Now
Cells(Target.Row, 8).NumberFormat = "MM/DD/YY"
Cells(Target.Row, 9).Value = ""
Application.EnableEvents = True
Case "Off Hold"
Application.EnableEvents = False
Cells(Target.Row, 9).Value = Now
Cells(Target.Row, 9).NumberFormat = "MM/DD/YY"
Cells(Target.Row, 8).Value = ""
Application.EnableEvents = True
End Select
Application.ScreenUpdating = True
End Sub
Bookmarks