Excel - Enlazar hojas de calculo

Buenas como dije anteriormente quiero hacer una macro que haga esto pero con muchas hojas más; la base sería esta pero no funciona. Es la primera vez que hago una macro ayuda por favor.
Muchas gracias anticipadas.

Sub Impresion()
If Calculo!A51 = BDP6!B171 Then
Impresión!A1:K390 = BDP6!A1:K390
Else
If Calculo!A51 = BDP6F!B171 Then
Impresión!A1:K390 = BDP6F!A1:K390
Else
Impresión! = 0
End Sub

Siendo Calculo! una hoja, BDP6! otra BDP6F! otra Impresión! otra y asi hasta unas 34 y tengo que hacer que en impresion! se me copie la hoja que toque en lugar de (Impresión!A1:K390 = BDP6!A1:K390) entera (Impresión! = BDP6!) debido a que tengo imagenes y textos con más de 255 caracteres y me gustaría que la copiara tal cual, asi puedo tener todas las hojas o fichas de cada producto ocultas y en impresión me saldra la que necesite cada vez sin tener que tener todas las hojas visibles en el documento.

Gracias otra vez.

¿que?

Abraham