Auto Rearranging Worksheet Tabs

default_name

Board Regular
Joined
May 16, 2018
Messages
170
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
  2. MacOS
Hello,

You guys have been so helpful! Thanks!

Recently, you guys helped me change the color of the worksheet tab depending on the date in a calendar type project.
See this thread as a reference.

I have another question for the same project in regards to the worksheet tabs:

The very first worksheet tab (all the way to the left) contains reference numbers and important information (called the Info tab) that I often look at.
As time/the calendar goes on, I am moving on to worksheets further and further to the right (further and further away from the Info tab).
Although I could just suck it up and keep scrolling back (and I could manually just rearrange the workbook to have the Info tab closer), it is kind of a hassle to have to go all the way back to the left whenever I need to quickly reference the Info tab.
Is there a way to program the workbook to automatically pull that Info tab over (from the far left) to one worksheet to the left of the current/working worksheet?
The current/working worksheet is based off of the date (as seen in the referenced thread above).
Hope that makes sense.

Thanks in advance!
 

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.
If you right click above the 2 arrows < > to the left of the Tab names you'll get a list of all the tabs in the workbook. Simply click one then Ok & it will become the active sheet.
Also if you Ctrl & left click one of the arrows it will take you to either the first or last sheet, depending on which arrow you clicked.
 
Upvote 0
Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on any sheet Tab
Select View Code from the pop-up context menu
Double click on ThisWorkbook
Paste this code in the VBA edit window

Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Modified  7/18/2018  9:49:20 AM  EDT
ActiveSheet.Move After:=Sheets("info")
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,551
Messages
6,114,268
Members
448,558
Latest member
aivin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top