Thread: Offset Range
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Enigo Enigo is offline
external usenet poster
 
Posts: 4
Default 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