VBA funkcija ki preverja zadnje črke datoteke

Imam spisano makro funkcijo v VBA ki naj bi preverjala zadnje črke pdf datotek v dropdown listi vendar ne uspem vključiti tistega dropdowna v funkcijo:

   Case 1     
    Dim str() As String
    str = Split(ActiveCell.Value, ".")
    If Right(str(0), 4) = "_A05" Then
        zPrinter = [chosenPrinter]
    ElseIf Right(str(0), 3) = "_pm" Then
        zPrinter = [chosenPrinter1]
    Else
        zPrinter = [chosenPrinter2]
    End If

Zdaj kakor razumem mi gleda vsebino imena v ActiveCell, rad pa bi spremenil da bi mi gledalo v Drop down 64.
Dropboxe sem naredil z comboboxi (Form Control -> combobox) in v njih vključil datoteke ki so vpisane na sheet2.

Sem se sploh pravilno lotil naloge ? Koncept je tak da kliknem gumb in mi preveri zadnje črke datoteke ter glede na to pošlje ustreznemu printerju, stvar mi že funkcionira vendar moram ročno izbrati printer.