Lista Desplegable

Buenos días experto
Tengo un archivo en excel que tiene tiene unas listas desplegables para seleccionar dos opciones si o no, así.
            Columna a columna b
            info lista desplegable
Fila 2 xxxxxxxxxxxx si ; no
Fila 3 xxxxxxxxxxxx si; no
Cuando el usuario selecciona la opción SI de la lista en la columna b y fila2 y la opción si en la columna b y fila3 me lleve a la hoja 3 por medio de un botón de lo contrario me lleve a la hoja 4.
Yo realize el siguiente código pero código pero solo es funcional para cuando tengo 3 filas, no se que pasa pero lo necesito para que sirva para n filas.
          columna a                         columna b    
          info                                   lista desplegable
fila 2    xxxxxxxxxxxx                  si ; no
fila 3    xxxxxxxxxxxx                  si; no
fila 4    xxxxxxxxxxxx                  si; no
function ExplorarRango(CeldaInicial As String, CeldaFinal As String)
CeldaInicialColumna = Mid(CeldaInicial, 1, 1)
CeldaInicialFila = Val(Mid(CeldaInicial, 2))
CeldaFinalColumna = Mid(CeldaFinal, 1, 1)
CeldaFinalFila = Val(Mid(CeldaFinal, 2))
HojaSiguiente = ""
For Fila = CeldaInicialFila To CeldaFinalFila
    For Columna = Asc(CeldaInicialColumna) To Asc(CeldaFinalColumna)
        celda = Trim(Chr(Columna)) + Trim(Str(Fila))
        If Range(celda).Value = "Si" Then
            If HojaSiguiente = "" Then
                HojaSiguiente = "No Cambio Presion"
            Else
                If HojaSiguiente = "Cambio Presion" Then
                    HojaSiguiente = "Cambio Presion"
                End If
            End If
        Else
            If HojaSiguiente = "" Then
                HojaSiguiente = "Cambio Presion"
            Else
                If HojaSiguiente = "No Cambio Presion" Then
                    HojaSiguiente = "Cambio Presion"
                End If
            End If
         End If
    Next
Next
Sheets(HojaSiguiente).Select
End Function
'
Sub llama_a_macro()
    If ExplorarRango("D4", "D6") Then
    End If
End Sub
Gracias por tu pronta ayuda.