I have a worksheet open, so it is the active worksheet and did some stuff,
ending with 27 rows (number of rows will vary each day, but should get above
35 to 40), A-E. Need to sort from A5 down. Started at A1. Recording Macro
said:

ActiveCell.Offset(4, 0).Range("A1:E31").Select
ActiveWorkbook.Worksheets("prysm06-17-09").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("prysm06-17-09").Sort.SortFields.Add Key:= _
ActiveCell.Range("A1:A23"), SortOn:=xlSortOnValues,
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("prysm06-17-09").Sort
.SetRange ActiveCell.Range("A1:E23")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

I want to use this on a different file each day, so name wil be different.
How do I get past ActiveWorkbook.Worksheets("prysm06-17-09"). and just sort
on the sheet that open, with out naming the file each time. My syntax
sucks.... :-)

Thanks,

Ron