Macro to work for all worksheets in a workbook

[satchy321]

Hi,

I needed a Macro to open a workbook automatically in today's cell and I found a macro from CFO.com

Private Sub Workbook_Open()
Worksheets("Feb").Select
x = Day(Date)
Worksheets("Feb").Columns(2).Find(What:=x, LookIn:=xlValues).Activate
End Sub

The problem is my workbook is divided into 12 sheets for each month (Jan, Feb, Mar, etc...) and I would like the macro to apply to work across all sheets without having to change the code.
How would I do that ?

I'm no VBA expert and I tried a few combinations but it causes me grief.

Thanks
Gaetan

[Andrew-R]

You need to read the forum rules and put code tags around your code, like this...

Please Login or Register  to view this content.

[satchy321]

You need to read the forum rules and put code tags around your code, like this...

Please Login or Register  to view this content.

Andrew, many thanks for this. I didn't read the forum rules indeed but the amount of time I've been researching to get this when you're not a programmer and when you don't have english as 1st language makes it quite difficult. These are simple things that make our lives easier and something I know from everyday is that if you want something done, just do it yourself.

Much appreciated for the help
Best regards

[mrice]

Try this

Please Login or Register  to view this content.

[Andrew-R]

mrice, expect to hear from my lawyer regarding this blatent infringement of copyright

Edited to add: As I forgot to copyright my code I am willing to settle out of court for half a lager shandy and a packet of pork scratchings.

[mrice]

Obviously didn't read your post closely enough as I didn't notice that your example of code tags also contained a solution.

Good to see that we came up with the same solution.

Not sure about your taste in bar snacks...