Problema con columnas excel

Hola buen dia me podrias ayudar con esto
tengo una macro donde creo otra hoja y en esa hoja a las columnas asignarle las medidas que quiero y en la columna 4 con un altura, pero la ejecuto y
solo me crea la nueva hoja sin moverle a la medida de las columnas que tengo mal?
Sub crea()
'
' '
'
Sheets("Sheet1").Select
Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Etiquetas"
Columns("A:A").ColumnWidth = 12.29
Columns("C:C").ColumnWidth = 7.71
Columns("D:D").ColumnWidth = 9
Columns("E:E").ColumnWidth = 5
Columns("F:F").ColumnWidth = 12.29
Columns("H:H").ColumnWidth = 7.71
Columns("I:I").ColumnWidth = 9
Columns("J:J").ColumnWidth = 5
Rows("4:4").RowHeight = 25
End Sub