Códigos VBA

Para ordenar hojas:

Sub Ordenar_HojasAscendente()
For i = 1 To Sheets.Count
    For j = i + 1 To Sheets.Count
        If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then
            Sheets(j).Move Before:=Sheets(i)
        End If
    Next j
Next i
End Sub

Para que lo que escribas en una celda se te reproduzca en una pestaña en Google Sheets

function onEdit() {

  var HojaActual = SpreadsheetApp.getActiveSheet();

  var HojaActual_Nombre = HojaActual.getName();

 

  // Sustituir los valores de getRange por el número de fila y columna de donde se tomará el nombre de la hoja

  var HojaActual_NuevoNombre = HojaActual.getRange(1,1).getValue();

  if (HojaActual_NuevoNombre.toString().length>0 && HojaActual_NuevoNombre !== HojaActual_Nombre) {

    HojaActual.setName(HojaActual_NuevoNombre);

  }

}

Para que puedas hacer listas desplegables dependientes en Word 

Sub listadesplegable ()

 

Dim xAnimal As FormField

Dim xTipo As FormField

 

Set xAnimal = ActiveDocument.FormFields("listadesplegable1")

Set xTipo = ActiveDocument.FormFields("listadesplegable2")

 

With xTipo.DropDown.ListEntries

.Clear

 

Select Case xAnimal.Result

 

Case "perro"

.Add "boxer"

.Add "yorkshire"

.Add "chihuahua"

 

Case "gato"

.Add "siamés"

.Add "angora"

.Add "siberiano"

 

Case "tigre"

.Add "bengala"

.Add "sumatra"

.Add "java"

 

 

End Select

End With

End Sub