InStr()/Select Case [Excel VBA 2010]

I have the following code:

    If InStr(ActiveWorkbook.Name, "xxx") > 0 Then
        ActiveSheet.Range("J1").Value = "yyy"
        ActiveSheet.Range("J1").Select
    Else
        If InStr(ActiveWorkbook.Name, "aaa") > 0 Then
            ActiveSheet.Range("F1").Value = "bbb"
            ActiveSheet.Range("F1").Select
        Else
            If InStr(ActiveWorkbook.Name, "ccc") > 0 Then
                ActiveSheet.Range("F1").Value = "ddd"
                ActiveSheet.Range("F1").Select
            Else
                If InStr(ActiveWorkbook.Name, "eee") > 0 Then
                    ActiveSheet.Range("F1").Value = "ffff"
                    ActiveSheet.Range("F1").Select
                Else
                    If InStr(ActiveWorkbook.Name, "ggg") > 0 Then
                        ActiveSheet.Range("F1").Value = "hhh#"
                        ActiveSheet.Range("F1").Select
                    Else
                        If InStr(ActiveWorkbook.Name, "iii") > 0 Then
                            ActiveSheet.Range("F1").Value = "jjj"
                            ActiveSheet.Range("F1").Select
                        Else
                            If InStr(ActiveWorkbook.Name, "lll") > 0 Then
                                ActiveSheet.Range("F1").Value = "mmm"
                                ActiveSheet.Range("F1").Select
                            Else
                                ActiveSheet.Range("G1").Value = "nnn"
                                ActiveSheet.Range("G1").Select
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If

I'd like to use Select Case but am unsure how to set it up using InStr(). Any help is appreciated.