Rinomina foglio



  • Rinomina foglio
    di Fausto (utente non iscritto) data: 24/08/2010

    Ancora ciao a tutti,
    avrei un altro quesito da sottoporre:
    È possibile rinominare un foglio incollando il contenuto di una cella dello stesso foglio, e che il foglio si rinomini automaticamente al variare del contenuto nella cella?



  • di Franco_44 (utente non iscritto) data: 24/08/2010

    Si lo puoi fare con una macro che inserisci su change del foglio. nell'esempio la cella di riferimento per rinominare il foglio è la a3; adattala alle tue esigenze
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A3")) Is Nothing Then
    Exit Sub
    Else
    Dim Nomef As String
    ActiveSheet.Select
    ActiveSheet.Unprotect
    Nomef = Range("A3")
    ActiveSheet.Name = Nomef
    End If
    End Sub