Morning experts,
Run time error stops on With Range(Range("AG4").Value)
AG4 contains the address of a cell that I want the value in AF4 to be added to.
I'd be grateful for any help you could give on how to straighten this out
grf
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count > 1 Then Exit Sub
If Not Intersect(.Cells, Me.Range("C2:C1199")) Is Nothing Then
.Offset(0, -1).Value = Date '''''' or Now <- Just a note: Now() will include date + time
End If
If Not Intersect(.Cells, Me.Range("I2:I1199")) Is Nothing Then
Target.Offset(0, -6).Copy Destination:=Sheets("INCOME TOTALS").Range("AD4")
Target.Offset(0, -5).Copy Destination:=Sheets("INCOME TOTALS").Range("AE4")
Target.Copy Destination:=Sheets("INCOME TOTALS").Range("AF4")
With Range(Range("AG4").Value)
.Value = .Value + Range("AF4").Value
End With
End If
End With
End Sub
Run time error stops on With Range(Range("AG4").Value)
AG4 contains the address of a cell that I want the value in AF4 to be added to.
I'd be grateful for any help you could give on how to straighten this out
grf