Offset Range
Hi,
I am using the following code but I need to have D3 value change depending
on what row I am entering data into.
I have been working on this and can't find the answer.
Here's the code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AOI As Range
Set AOI = [D3]
If Not Intersect(Target, AOI) Is Nothing Then
Select Case AOI.Text
Case Is = "Possible Soft Hold"
AOI.Offset(0, 7).Value = Date
Case Is = "Soft Hold"
AOI.Offset(0, 8).Value = Date
Case Is = "Hard Cut"
AOI.Offset(0, 9).Value = Date
End Select
End If
End Sub
|