View Single Post
 
Old 06-19-2014, 10:40 AM
Cosmo Cosmo is offline Windows Vista Office 2007
Competent Performer
 
Join Date: Mar 2012
Posts: 240
Cosmo is on a distinguished road
Default

Quote:
Originally Posted by macropod View Post
This works for me:
Code:
Sub Demo()
Dim Rng As Range
With ActiveDocument.Tables(1)
  Set Rng = .Range
  With Rng
    .Start = .Rows(3).Range.Start
    .Sort
  End With
End With
End Sub
Thanks, that looks good to me!
Reply With Quote