Worksheet_Change from a data validation listClosed

Question

Hello, 

I want my pivots to rebuilt when a value in range("Book_Select") is changed. This range is a drop down data valiation list. What is wrong with my code:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = Range("book_select") Then
        Application.Cursor = xlWait
        Call BuildPivots
        Application.Cursor = xlDefault
    Else
    End If
    


End Sub



Configuration: Windows 7 / Internet Explorer 8.0

aquarelle · Answer

Hi, 

Try something like that (not tested) : 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim MyPlage, Cell As Range 
     
Set MyPlage = Range("book_select") 
     
    For Each Cell In MyPlage 
        Application.Cursor = xlWait 
        Call BuildPivots 
        Application.Cursor = xlDefault 
    Next 
End Sub 



Best regards 
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."

Worksheet_Change from a data validation list

1 response

Similar discussions

Subscribe To Our Newsletter!