Event when multiple cells selected

[tiredofit]

I have the following code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    MsgBox "Row " & Target.Row & " has been changed."
    
End Sub

If I select cell A1 and pressed delete, it correctly shows the message:

Row 1 has been changed

However, when I selected multiple cells, for example, A1 to A3, then pressed delete, the message still only shows:

Row 1 has been changed

What can I do to make the message box show:

Row 1:3 has been changed

or perhaps make the message box appear three times:

Row 1 has been changed

and

Row 2 has been changed

and

Row 3 has been changed

Thanks

 

[dreid1011]

You could just use Target.Address and change your text:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then
    MsgBox "Cells " & Target.Address & " have been changed."
Else
    MsgBox "Cell " & Target.Address & " has been changed."
End If
End Sub

I tried other options to just display the row, but it was either only showing the first row in the selection, or the entire selection.

 

[tiredofit]

You could just use Target.Address and change your text:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then
    MsgBox "Cells " & Target.Address & " have been changed."
Else
    MsgBox "Cell " & Target.Address & " has been changed."
End If
End Sub

I tried other options to just display the row, but it was either only showing the first row in the selection, or the entire selection.

Thanks.

I managed to work it out.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Dim rng As Range

    For Each rng In Target
 
        MsgBox "Row " & rng.Row & " has been changed."
    
    Next rng

End Sub

 

[dreid1011]

Thanks.

I managed to work it out.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  
    Dim rng As Range

    For Each rng In Target
 
        MsgBox "Row " & rng.Row & " has been changed."
   
    Next rng

End Sub

Interesting that you got that working. That was one of the things I tried, and it kept giving me the first row in the range instead of each different row. Then again, as I am typing this, I think I was using "MsgBox Target.Row" in the loop instead of "MsgBox rng.Row".