Intersect(ActiveCell,Range()) in VBA

See more:

VBA

Hi All,
Am working in Automation of PPT Slides from Excel using VBA.I have more than 50 slides,and more than 100 tables.If I change values in Tables it should reflect in PPT slides.I have written code using ActiveCell like This

Public Sub UpdatePPT_Click()
  Dim MyPath As String

  MyPath = InputBox("Enter the path")
  If Not Intersect(ActiveCell, Range("C145:D152")) Is Nothing Then
  Table7.updatetable7 (MyPath)
  End If
  If Not Intersect(ActiveCell, Range("C271:D273")) Is Nothing Then
  Table15_21.updatetable15 (MyPath)
  End If
  If Not Intersect(ActiveCell, Range("C283:X312")) Is Nothing Then
  Table15_21.updatetable16_18 (MyPath)
  End If
  End Sub

My issue is if I change one cell value in the Range("C145:D152") and another value in Range("C271:D273") ActiveCell takes the last range in which I Changed.But I want both the values Which gets changed in both ranges,How to solve this?


Thanks in Advance.