Worksheet Deactivate

[gheyman]

I want to automnatically rename the tab based on whats in cell B8.

Help Please.

Private Sub Worksheet_Activate()


'ActiveSheet.Name = Range("B8")


End Sub

 

[trunten]

Private Sub Worksheet_Activate()

me.Name = me.Range("B8").value


End Sub

 

[steve the fish]

Try this with a bit of error checking included:

Private Sub Worksheet_Activate()

Dim c As String

c = Range("B8").Value

If Len(c) > 0 Then
    On Error Resume Next
    Set sh = Sheets(c)
    If sh Is Nothing Then
        Me.Name = c
    End If
End If

End Sub

 

[trunten]

I'll second that! maybe even do this to be sure to be sure

Private Sub Worksheet_Activate()
    Dim c As String

    c = Range("B8").Value
    If Len(c) > 0 And StrComp(c, "history", vbTextCompare) <> 0 Then
        On Error Resume Next
        Set sh = Sheets(c)
        If sh Is Nothing Then
            Me.Name = c
        End If
    End If
End Sub