Ejecutar macro si cambia valor en lista!

Si vas a usar macros, te recomiendo leer un poco más del tema.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
  Select Case Target
Case "January 2009"
MsgBox "Aqui en lugar de este msgbox pon lo que quieras que haga "
Case "otro valor que desees"
MsgBox "Aqui en lugar de este msgbox lo otro que desees"
End Select
End If
End Sub
y asi, agrega los CAse que te hagan falta
Abraham

Gracias! Agradezco mucho tu ayuda, pero aún no funciona!
Esto es lo que he puessto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Select Case Target
Case ("January 2009")
    Columns("D:R").Select
    Selection.EntireColumn.Hidden = False
    Columns("F:P").Select
    Selection.EntireColumn.Hidden = True
    Rows("40:155").Select
    Range("B40").Activate
    Selection.EntireRow.Hidden = True
 Case "February 2009"
        Columns("D:R").Select
    Selection.EntireColumn.Hidden = False
    Columns("G:P").Select (...)
End If
End Sub    -------------------------------------
Pero cuando cambio el valor en la lista... no pasa nada!
¿Qué puedo hacer?
Gracias por tu ayuda!