Navigate sheets from dropdown list. and this error occured. please help

[th9r]

 

[SunnyAlv]

IF whithout END IF, i think you must add END IF before END SUB, Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Range("A2").Value = "" Then
            ThisWorkbook.Sheets(Range("A2").Value).Select
    End If
End Sub

 

[dmt32]

Hi welcome to forum

As you have a continuation ( _ ) after Then directive you need to remove the space in front of the next line

If Not Application.Intersect(Range("A2"), Target) Is Nothing Then _
    ThisWorkbook.Sheets(Target.Value).Activate

Dave

 

[th9r]

IF whithout END IF, i think you must add END IF before END SUB, Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Range("A2").Value = "" Then
            ThisWorkbook.Sheets(Range("A2").Value).Select
    End If
End Sub

 

[th9r]

IF whithout END IF, i think you must add END IF before END SUB, Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Range("A2").Value = "" Then
            ThisWorkbook.Sheets(Range("A2").Value).Select
    End If
End Sub

thanks