If A1 is blank, then go to 'Range("I8").Select' .Plse add code
[VBA]Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("I8").Select[/VBA]
If A1 is blank, then go to 'Range("I8").Select' .Plse add code
[VBA]Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("I8").Select[/VBA]
[vba]
If Range("A1").Value <> "" Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End If
Range("I8").Select [/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Thank you