Code problem
 

On my spreadsheet C3 contains a formula which returns the number 1 and cell
W1 value is 1, in this case the code should skip to Continue1: and not sort
the cells, but it is not. Can anyone tell me why?

If Range("C3").Value = Range("W1").Value Then

GoTo Continue1

End If

If Range("C3").Value "" Then

Range("A4:C8").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End If

Continue1:

Code problem
 

Are you sure that C3 is exactly 1, it doesn't have some very small
fractional part. Try increasing the decimal places to see.

If so, and dealing with integers, you could use

If Int(Range("C3").Value) = Int(Range("W1").Value) Then

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Patrick Simonds" wrote in message
...
On my spreadsheet C3 contains a formula which returns the number 1 and
cell
W1 value is 1, in this case the code should skip to Continue1: and not
sort
the cells, but it is not. Can anyone tell me why?

If Range("C3").Value = Range("W1").Value Then

GoTo Continue1

End If

If Range("C3").Value "" Then

Range("A4:C8").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending,
Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End If

Continue1: