View Single Post
 
Old 02-11-2021, 03:08 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,975
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

This is how I would do it. Add these lines where you indicated
Code:
          For Each aBkmk In .Range.Bookmarks
            StrData = StrData & vbTab & aBkmk.Name
          Next aBkmk
You will also need to declare the variable at the top
Dim aBkmk As Bookmark
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote