Hi Colin,
Thanks for the new code. I am still getting a runtime error 1004. Debug shows highlighted as the source of the error,
Code:
.SortFields.Add _
Key:=fRange, _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
Any idea's
Thanks in advance for all your help!!!