Visual Basic Problem (Excel)

I currently have the following code

Code:

---

    Sheets("StaffData").Select
    d = Cells(1, 4)
    If d = Monday Then
    Range("C5").Select
    ElseIf d = Tuesday Then
    Range("E5").Select
    ElseIf d = Wednesday Then
    Range("G5").Select
    ElseIf d = Thursday Then
    Range("I5").Select
    ElseIf d = Friday Then
    Range("K5").Select
    Else
    Range("B1").Select
    End If

---

The only problem is it returns to C5 no matter what the value of d is

Any Ideas?

try..

Code:

---

Sheets("StaffData").Select
    d = Cells(1, 4)
    If d = "Monday" Then
    Range("C5").Select
    ElseIf d = "Tuesday" Then
    Range("E5").Select
    ElseIf d = "Wednesday" Then
    Range("G5").Select
    ElseIf d = "Thursday" Then
    Range("I5").Select
    ElseIf d = "Friday" Then
    Range("K5").Select
    Else
    Range("B1").Select
    End If

---