Apply VBA code to multiple cells

**jond291** · 05-31-2013, 06:53 AM

Hi,

I've been using this forum for quiet a while now, and I can usually find an answer without posting my own question, but I really need help on this one.

I have a spreadsheet which I made to use as a to-do list, I have a date requested column which I want to automatically put in today's date when I select the cell, which I can get working by using the following code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "D6" Then
If Target.Value = "" Then Target.Value = Date
End If
End Sub

I need to find a way to apply this to cells D6 to D52.

I was just going to enter the code several times and change the cell reference, but this returns an error.

I hope I've offered a good enough explanation for someone to help me, if you need any more information let me know.

Any helps greatly appreciated!

**:) Sixthsense :)** · 05-31-2013, 06:59 AM

Try this...

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("D6:D52")) Is Nothing Then
    If Target.Value = "" Then Target.Value = Date
End If

End Sub