seleccionar celdas de manera independiente y ejecutar macro

[vittaexcel]

Tengo un Formulario el cual lleno con un listbox el cual paso a celdas que son de la b8 a b32 y después la lista continua de la h8 a h57 y necesito que cualquiera que seleccione de estas ejecute la macro hasta este momento solo puedo hacerlo con una en especifico o en rango pero necesito que pueda seleccionar cualquiera de las mencionadas les paso el código como lo tengo. Gracias

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If Selection.Address <> "$B$8" Then

MsgBox "SELECCIONE CELDAS DE PRODCUTOS " & ElRango

Exit Sub

Else

With ListIndex = "b8"

ActiveCell = ListBox1

ActiveCell.Offset(1, 0).Select

ListBox1.ListIndex = -1

End With

End If

End Sub

* Te recomenda