Multiple conditions within Worksheet_SelectionChange(ByVal Target As Range)

Hey, guys. What's up?

Please, I need some help from you, experts.

I have 5 sheets and here is what I want to do:

In Sheet1, if I click on A2, it goes to Sheet2. If I click on A3, it goes to Sheet3. If I click on A4, it goes to Sheet4. If I click on A5, it goes to Sheet5.
In Sheet2, if I click on A1, it goes to Sheet1. If I click on A3, it goes to Sheet3. If I click on A4, it goes to Sheet4. If I click on A5, it goes to Sheet5.
In Sheet3, if I click on A1, it goes to Sheet1. If I click on A2, it goes to Sheet2. If I click on A4, it goes to Sheet4. If I click on A5, it goes to Sheet5.
In Sheet4, if I click on A1, it goes to Sheet1. If I click on A2, it goes to Sheet2. If I click on A3, it goes to Sheet3. If I click on A5, it goes to Sheet5.
In Sheet5, if I click on A1, it goes to Sheet1. If I click on A2, it goes to Sheet2. If I click on A3, it goes to Sheet3. If I click on A4, it goes to Sheet4.

As you may have noticed, the cells A1 to A5 work like buttons which lead to other sheets. These cells are big (width and height) with small texts in the middle of them. I could, but I DO NOT want to use hyperlinks, and the reason is very simple: if I use hyperlinks, I will have to click exactly on the TEXT to go to another sheet and this is very annoying. The way I'm trying to do is better because I can click on the cell itself, so even if I don't click on the TEXT of the cell, it will still work.

I've already made this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        mcrGoToSheet2
    End If
End Sub

This works perfectly, but there is only one condition and I need 4 of them. When I try to add more conditions, it won't work properly, certainly because I'm doing it the wrong way. Here it is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        mcrGoToSheet2
    ElseIf Not Intersect(Target, Range("A3")) Is Nothing Then
        mcrGoToSheet3
    ElseIf Not Intersect(Target, Range("A4")) Is Nothing Then
        mcrGoToSheet4
    ElseIf Not Intersect(Target, Range("A5")) Is Nothing Then
        mcrGoToSheet5
    End If
End Sub

By the way, I'm using macros (mcrGoToSheet#) because it does more things than just activate the sheet in question. Example:

Sub mcrGoToSheet2()
    Sheets("Sheet2").Activate
    Application.OnTime Now() + TimeValue("00:00:02"), "mcrPanelHideShow"
End Sub

So, what do I have to do to have multiple conditions within the Worksheet_SelectionChange event?

I hope you can help me. Thanks a lot for you attention.

brunces