open every Workbook in a specific cell

[Roman_k]

Hi All,
I am trying to find a way to open every new workbook at cell A4, I have found the code below but It only works for the saved workbook it is in, any Ideas


Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
On Error Resume Next
Wsh.Range("A4").Select
End Sub

Thanks in advance for any help
Roman

 

[My Aswer Is This]

Your script says when sheet is activated.
But you said
find a way to open every new workbook
A Workbook and a sheet are not the same. And what do you mean when you say New.

 

[Roman_k]

Hi,
Sorry not very good at VBA, I would like every new workbook that gets opened to open with cell A4 selected, I've had a look around but can't seem to find anything that fits my need.

 

[My Aswer Is This]

I do not know how this could be done. Because when a New Workbook is created it has no Vba code.
And I do not know how a script could be put into the Personal Workbook that would do that

 

[Roman_k]

OK, Thanks for getting back to me

 

[Jaafar Tribak]

Place the code in an addin after hooking the application events ...Alternatively, you can save the workbook as a macro enabled template.