Visual Basic Problem (Excel)

[Drompo]

I currently have the following 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?

[MrCraig]

try..

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