Aplicar a todas las hojas

hola, !

... este macro... funciona muy bien, pero solo para la hoja donde esta anidada
que tengo que agregarle para que sea para todas las hojas de un libro abierto
y donde lo tednria que anidar en uin modulo? Thisworkbook? donde?
Private Sub CommandButton1_Click()
With ActiveSheet
.Rows.RowHeight = 12.75
.Rows("1:10").RowHeight = 12.75
.Columns("a").ColumnWidth = 11
.Columns("h:l").ColumnWidth = 19
.Columns("m").ColumnWidth = 3
End With
End Sub

no es muy clara tu peticion de que se aplique a 'todas las hojas de un libro abierto' -?-
ni comentas si el commandbutton esta incrustado en una hoja de calculo o en algun formulario -?-
prueba con algo +/- como lo siguiente:

Private Sub CommandButton1_Click()
Dim Hoja As Worksheet
For Each Hoja In Worksheets
With Hoja
.Rows.RowHeight = 12.75
.Rows("1:10").RowHeight = 12.75
.Columns("a").ColumnWidth = 11
.Columns("h:l").ColumnWidth = 19
.Columns("m").ColumnWidth = 3
End With
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.