Insert today's today when range of cells is changed in sheet

[dknowles2004]

I'd like to insert today's date in cell BB14 if any of the cells in range F11:AU14 are changed in my worksheet. Some of these cells in the range use validation. Clearly, I need to use the Worksheet Change function but any more clues on how to do this please?

Thanks.

 

[Andrew Poulsom]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then
        Range("BB14").Value = Now
    End If
End Sub

You can use Date instead of Now if you don't want the time.

 

[dknowles2004]

Fantastic!! Many thanks. The code works. What if I was to include multiple ranges on a Worksheet range?

 

[Andrew Poulsom]

Fantastic!! Many thanks. The code works. What if I was to include multiple ranges on a Worksheet range?

What do you mean?

 

[dknowles2004]

Sorry I didn't make myself very clear. How would I join the following code together to run in a Worksheet Change function:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then
        Range("BD10").Value = Now
    End If
End Sub

[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F17:AU20")) Is Nothing Then
        Range("BD16").Value = Now
    End If
End Sub

 

[Andrew Poulsom]

Like this?

Private Sub Worksheet_Change(ByVal Target As Range) 
   If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then 
      Range("BD10").Value = Now 
   ElseIf Not Application.Intersect(Target, Range("F17:AU20")) Is Nothing Then
      Range("BD16").Value = Now 
   End If 
End Sub