Activate sheet with cell value

[adamsm]

Hi,

How could I make the following code to activate the sheet that a user types on Cell G5.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("G5").Value = "FALSE" Then


Worksheets("Mail").Activate
      End If
      
  
End Sub

Suppose if the user types "Mail" in cell G5 I want the sheet Mail to be activated. If the user types "Mysheet" I want the referenced sheet to activated.

Any help on this would be kindly appreciated.

Thanks in advance.

 

[adamsm]

I want to clear the Range (A5:G5") of the active sheet. where the code is embedded.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:G5")) Is Nothing Then
    On Error Resume Next
    Sheets(Target.Value).Select
    Application.EnableEvents = False
    Me.Range("A5:G5").ClearContents
    Application.EnableEvents = True
    On Error GoTo 0
End If
End Sub

 

[adamsm]

Thanks for the reply. I do appreciate your help.