all,
this code below fails on the one computer it needs to work on, no matter how i call it. i am calling from Access. also it doesnt matter if i remove dim LT and use List instead:
Sub bulletFormat()
Selection.HomeKey wdStory
Dim doc As Word.Document
Set doc = ActiveDocument
Dim LT As List
For Each LT In ActiveDocument.Lists ' this line errors
LT.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
False, ApplyTo:=wdListApplyToSelection, DefaultListBehavior:= _
wdWord10ListBehavior
Next
End Sub
Tighe