VBA code needed for drop-down menu automation

[m_sabeer]

Hi there,
I have created a workbook which has same drop down (consisting months) menu on cell J2 of every sheet. Now I want a code that will change all the other sheets drop down based on what is selected on active sheet. Like if my active sheet is "Men Branches" and I select the month of October from drop down menu. I want all the other sheet like Women Branches, Retail Sales, Services Sales to change their drop down to October. Hope its clear....I would be very thankful if any VBA genius can write this code for me.

 

[Boniouk]

I have a similar workbook which has 4 or 5 pages of different dynamic tables and charts. I have the same dropdown box on all 5 and when i change 1 it changes them all. However this was just incidental, it happened as i built it. Not sure how. I just copied and pasted the combo boxes and it worked. You sure it isn't already doing it? Is it an active x or a form control you are using? Mine was combo box active x.

 

[dispelthemyth]

try the below, its untested

Sub UpdateCell()
Application.ScreenUpdating = False
'Start looping through all worksheets

Sheet = ActiveSheet.Name
R = Range("J2").Value
For Each WS In ThisWorkbook.Worksheets
WS.Activate

Range("J2").Value = R
Next WS

Sheets(Sheet).Activate

End Sub

 

[dispelthemyth]

I have a similar workbook which has 4 or 5 pages of different dynamic tables and charts. I have the same dropdown box on all 5 and when i change 1 it changes them all. However this was just incidental, it happened as i built it. Not sure how. I just copied and pasted the combo boxes and it worked. You sure it isn't already doing it? Is it an active x or a form control you are using? Mine was combo box active x.

It will be in your VBA code, the default value will be stored in the same place

 

[m_sabeer]

try the below, its untested

Sub UpdateCell()
Application.ScreenUpdating = False
'Start looping through all worksheets

Sheet = ActiveSheet.Name
R = Range("J2").Value
For Each WS In ThisWorkbook.Worksheets
WS.Activate

Range("J2").Value = R
Next WS

Sheets(Sheet).Activate

End Sub

Not working

 

[m_sabeer]

Thanks I will try this