Macros y checkboxes

[RaulMD]

Hola a todos, tengo una consulta sobre una macro que estoy creando que supongo que debe ser bastante simple para alguien con un poco de experiencia en el asunto.

La cuestión es que tengo una serie de 50 hojas. Quiero que una de ellas sirva de índice y que vía checkboxes oculte y muestre una hoja específica. Hasta el momento he creado esta macro que oculta y muestra cada hoja:

Sub Macro1()

Sheets("P1a").Visible = Range("Partidos!K2").Value

If Sheets("P1a").Visible = True Then
Sheets("P1a").Activate

Else

Sheets("Partidos").Activate

End If

End Sub

Siendo:

P1a la primera de las hojas
Partidos la hoja índice
K2 la celda a la que está ligado el checkbox 1.

Mi duda radica en si es que tengo que hacer una macro diferente para cada checkbox o si puedo hacer que la misma macro tome los valores P1a y K2 variables según el checkbox que elija.

Muchas gracias de antemano la ayuda prestada,
Raúl

 

[LEONEL]

agrega una variable por ejemplo
dim nombhoja as string
y substituyela en el nombre de la hoja ejemplo
sheets(nombhoja) en lugar de sheets("P1A")

espero te sirva