Togglebutton que funcione en todas las hojas

Hola, soy novato en esto. Tengo un libro en Excel 2010 con algunos datos de personas y, entre ellos, el teléfono. He puesto un Togglebutton para mostrar y esconder estos teléfonos porque sólo querré tenerlos a la vista alguna vez para casos concretos.

He hecho esto:

Public Sub MostrarTelefonos()
If tgbMostrarTelefonos = True Then
Application.ActiveWorkbook.ActiveSheet.Range("B:B").Select
Selection.EntireColumn.Hidden = False
ElseIf tgbMostrarTelefonos = False Then
Application.ActiveWorkbook.ActiveSheet.Range("B:B").Select
Selection.EntireColumn.Hidden = True
End If
End Sub

Con "ActiveSheet" mi esperanza era que lo hiciera en la hoja en la que me encuentre y tener este sub puesto en un módulo, pero no lo consigo ni con esto ni con otras pruebas parecidas. Sólo consigo que funcione si copio y pego el Sub en todas las hojas del libro.

¿Qué debo hacer?

Gracias,

Fran