Worksheet Change for multiple cells

[macsask]

I have been trying to figure out how to get worksheet to run macro when only certain cells change.
Do I have to create a worksheet change for each cell or can it be written in to one worksheet change

For example, I want macro to run if HA5 = 1, as well as every other +1000 row of column (HA1005, HA2005, ect)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim MainCells As Range

    Set MainCells = Range("HA5")

    If Not Application.Intersect(MainCells, Range(Target.Address)) _
           Is Nothing Then
 
        Select Case Target.Value
        Case "1"
        Call Macro2
        End Select
        End If

End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Private Sub Worksheet_Change(ByVal Target As Range)

   If Not Intersect(Target, Range("HA5,HA1005,HA2005,HA3005")) Is Nothing Then
      If Target.Value = "1" Then Call Macro2
   End If
End Sub

 

[macsask]

Fluff thank you for response
After some thought I have decided it would make more sense if my Macro was modified and I left the Worksheet change to include all the cells in my HA column Range.

Private Sub Worksheet_Change(ByVal Target As Range)

   If Not Intersect(Target, Range("HA5:HA76593")) Is Nothing Then
      If Target.Value = "1" Then Call Macro2
   End If
End Sub

But that gives me another snag in Macro when modifying it to recognize active row and autofill range.

         Range("FW" & ActiveCell.Row - 1).Resize(, 30).Select
        'auto fill range 1000 rows, range(FW:GZ)
        'go back to original activecell on completion
        Selection.AutoFill Destination:=Range("FW & ActiveCell.Row - 1:GZ" & 1000), Type:=xlFillDefault

 

[Fluff]

Either put the macro into the change event, rather than having it separate, or do something like

Private Sub Worksheet_Change(ByVal Target As Range)

   If Not Intersect(Target, Range("HA5:HA76593")) Is Nothing Then
      If Target.Value = "1" Then Call Macro2(Target.Row)
   End If
End Sub

Sub Macro2(Rw As Long)
Range ("FW" & Rw)
End Sub