PDA

View Full Version : go to



asdzxc
05-10-2012, 05:35 AM
If A1 is blank, then go to 'Range("I8").Select' .Plse add code
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("I8").Select

Bob Phillips
05-10-2012, 06:09 AM
If Range("A1").Value <> "" Then

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End If

Range("I8").Select

asdzxc
05-10-2012, 06:14 AM
Thank you