I am trying to run a macros in VBA to select something from a drop down and then select the corresponding sheet. I keep getting the compile error expected end sub. 

```
Sub Macro3()
'
' Macro3 Macro
'

'
Public Sub worksheet_change(ByVal target As Range)
    If target.Address = Range("Select.Type").Address Then
        Select Case target.Value
            Case "M/M/1/GD/INF/INF"
                Sheets("M-M-1-GD-INF-INF").Select
            Case "M/M/1/GD/C/INF"
                Sheets("M-M-1-GD-C-INF").Select
            Case "M/M/S/GD/INF/INF"
                Sheets("M-M-S-GD-INF-INF").Select
            Case "M/M/R/GD/K/K"
                Sheets("M-M-R-GD-K-K").Select
            Case "Closed Queuing Network"
                Sheets("CQN").Select
        End Select
    End If
End Sub

```