Creating Word docs from Excel list

Hi

I have a long list of filenames(text) in an excel spreadsheet going from B2:B151. I need to create (new) word documents for each of the filenames in cells B2:B151. The filename of the newly generated word doc will just be the text in each cell (from B2:B151).

Is this possible in VBA? Can anyone help?



Many thanks in advance

Code:

---

Sub M_snb()
  sn=sheet1.range("B2:B151")

  with createobject("Word.document")
      .windows(1).visible=true
      for j=1 to ubound(sn)
        .saveas2 sn(j,1)
      next
  end with
End Sub

---

Thanks snb.