LinkBack URL
About LinkBacks
To convert the range to a list
Add totals
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1").CurrentRegion, , xlYes).Name = _ "List1"
Remove ListActiveSheet.ListObjects("List1").ShowTotals = True
ActiveSheet.ListObjects("List1").Unlist
To convert the range to a list
Add totalsActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1").CurrentRegion, , xlYes).Name = _ "List1"
Remove ListActiveSheet.ListObjects("List1").ShowTotals = True
ActiveSheet.ListObjects("List1").Unlist
Hope that helps.
RoyUK
--------
For Excel Tips & Solutions, free examples and tutorials why not check out my web site
Free DataBaseForm example
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks