Solution to Activity 11.1

One possible solution to this activity is the following:

1. The Worksheet_Change event subroutine should have a new Case statement and code, like this:

Figure 16.67 – A new Case test with code

2. You will have a new function. This function is almost identical to the GenreSales function we created in Exercise – load genre sales chart data with the differences highlighted.
3. Declare the subroutine and its parameters:

   Private Sub ArtistTrackSales(ByVal pArtist As String)

4. Declare the variables:

          Dim RS As Recordset
               Dim SQL As String
               Dim MyNamedRng As Range
               Dim RS As Recordset
               Dim...