I am working on making a mail merge. It basically picks data off excel as you expect it to do but I need to create a macro that'll open up every row in a new document. The coding I have done so far is:- Sub Macro1() Dim Counter As Integer Counter = 1 Windows("Mail Merge Doc.doc").Activate ActiveDocument.MailMerge.DataSource.ActiveRecord = 1 Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.Paste Do While Counter <= 7 Counter = Counter + 1 Windows("Mail Merge Doc.doc").Activate ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.Paste Loop End Sub I need it to loop until it reaches the last row in the spreadsheet but how do I do this?

As I remeber correctly, the property UsedRange (i.e. Activesheet.UsedRange) contains the range of the last cell. From this you can extract the last row. You could allso loop until you find and empty row en use "Exit Do": Do While True If Emptyrow Then Exit Do End If Do your stuff Loop You have to fill in "EmptyRow" yourself because I don't know what your Excelsheet looks like. On the other hand, can't you get it done from Word? Create a mailmerge template in which you select the Excel file/sheet as the source and link the fields to the cells?