View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Steved Steved is offline
external usenet poster
 
Posts: 519
Default Work in 2 Cells "C3" and "R3"

Hello from Steved

Me.Range("C3") = Now is ok

Me.Range("C3:R3") = Now but this will not work

My objective is for it to Work in 2 Cells "C3" and "R3" is this possible
please. Thankyou

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range("A3:AB272"), .Cells) Is Nothing Then
Application.EnableEvents = False
If Not IsEmpty(.Value) Then
Me.Range("C3:R3") = Now
End If
Application.EnableEvents = True
End If
End With
End Sub