Saturday, October 29, 2016

Loop through all workbooks

Loop through all workbooks
  • Dim WS_Count as integer
  • Dim I as integer
  • WS_Count = Activeworkbook.Worksheets.Count
  • For I = 1 to WS_Count
  • Msgbox Activeworkbook.Worksheets(I).Name
  • Next I
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)