Code problem

[Patrick Simonds]

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:

[Bob Phillips]

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" <[email protected]> wrote in message
news:[email protected]...
> 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:
>
>