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