G
Guest
hi
i have some run problam with following code, please help.
Code is as under
------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set VRange = Range("BD1:BV600")
For Each cell In Traget
If Union(cell, VRange).Address = VRange.Address Then
MsgBox " The changed cell is in the input range."
End If
Next cell
End Sub
i have some run problam with following code, please help.
Code is as under
------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set VRange = Range("BD1:BV600")
For Each cell In Traget
If Union(cell, VRange).Address = VRange.Address Then
MsgBox " The changed cell is in the input range."
End If
Next cell
End Sub