Añadir código VBA a combobox

Hola Expertor he creado un combobox en un formulario, a partir del cual quiero filtrar los datos de una tabla dinámica.

ahora el campo a filtara es el de tipo de bosques que figura en la columna de la TD.

el código para generar la tabla dinámica principalmente es el siguiente:

====se ha obiado algunos aspectos como generar una nueva hoja y asiganr las variables

pero principalmente es el siguiente

sub TD()

With Sheets("Análisis")
.Activate 'selecciona la hoja
.Select
.Range("A1").CurrentRegion.Select 'selecciona toda la tabla
Set DatosTD = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Selection)
End With
Set TDVol = Hinf.PivotTables.Add(PivotCache:=DatosTD, tabledestination:=Hinf.Range("A1"))
With TDVol
.PivotFields("ESPECIE").Orientation = xlRowField
.PivotFields("TIPO DE BOSQUE").Orientation = xlColumnField
.PivotFields("Vol(m3)").Orientation = xlDataField
.DataBodyRange.NumberFormat = "0.###"
.RowGrand = False
End With
End Sub

==============================

qué código puedo ponerle al comobobox3?

Gracias por su apoyo