If then else not working

[BobSmith2112]

I am trying to add what I thought would be an easy addition to my code.
I have two macros that calculate using different formulas.
I want to automatically call the right macro if the cell 2 rows above the active cell is "W"
Although the value is "W" the macro jumps straight to the else statement and calls the wrong macro.

Sub Wednesday()
Range("graynext").Select
If ActiveCell.Offset(-2, 0) = "W" Then
Call PasteandcalcSat
Else
Call PasteAndDown
End If
End Sub
[\code]

 

[lrobbo314]

Changed ActiveCell.Offset(-2, 0) to ActiveCell.Offset(-2, 0).Value

[COLOR=#333333]Sub Wednesday()[/COLOR]
[COLOR=#333333]Range("graynext").Select[/COLOR]
[COLOR=#333333]If ActiveCell.Offset(-2, 0).Value = "W" Then[/COLOR]
[COLOR=#333333]Call PasteandcalcSat[/COLOR]
[COLOR=#333333]Else[/COLOR]
[COLOR=#333333]Call PasteAndDown[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[BobSmith2112]

Already tried that, it makes no difference

 

[Norie]

Does it work if you don't use ActiveCell/Select?

Sub Wednesday()

    If Range("graynext").Offset(-2, 0) = "W" Then
        Call PasteandcalcSat
    Else
        Call PasteAndDown
    End If

End Sub

 

[BobSmith2112]

No, still jumps to else.
I have similar code in Pasteanddown and PasteandcalcSat that detects if the cell two above is "S" and moves two columns to the right and that works fine.

 

[JugglerJAF]

Is your value "W" or "w"? There is a difference as the code as written is case sensitive.

Try forcing the check to always be in upper case as follows:

If UCase(Range("graynext").Offset(-2, 0)) = "W" Then

 

[BobSmith2112]

Nope, still the same

 

[BobSmith2112]

Oddly if I set it to detect "S" and move the active cell to 2 down from"S" it works! But I need it to work with"W"

 

[BobSmith2112]

Cured it, not sure exactly how and why but I changed the W to an S and it worked then I changed it back to W and it started working properly. Copying the cell to the other instances of W solves the problem. So the code was fine it was something to do with the cell format.