re-setting view of sheets so A1 is top left
Hi everyone,
I'm using Excel 2003 and would like a macro that sets all sheets back to A1 so that when I save a wkbk I don't have to check each sheet to see that it is displayed from the top. I've tried this Option Explicit Dim Shts As Worksheet Sub SettoA1() 'Resets all sheets to A1 (in my dreams!) For Each Shts In ThisWorkbook.Worksheets Shts.Activate Application.Goto Reference:="R1C1" Next End Sub I thought that this should work but does not seem to. What am I doing wrong? I also thought that maybe it wasn't working because with some of my wkbks, the data sheets are sent to me from another dept and they use Rows 1-5 for info about where the data has come from and these rows are then hidden, sheets are protected and also have data val on them so would be a hassle to unhide each sheet. So I took these sheets out to test macro and still did not seem to work. If someone could tell me how to make it work, could they also consider a workaround for my sheets with hidden rows please. Many thanks -- Diddy |
re-setting view of sheets so A1 is top left
Hi,
Try this Sub Sonic() Dim shts As Worksheet Const TopLeft As String = "A1" For Each Sheet In Worksheets Application.Goto Sheet.Range(TopLeft), scroll:=True Next End Sub Mike "Diddy" wrote: Hi everyone, I'm using Excel 2003 and would like a macro that sets all sheets back to A1 so that when I save a wkbk I don't have to check each sheet to see that it is displayed from the top. I've tried this Option Explicit Dim Shts As Worksheet Sub SettoA1() 'Resets all sheets to A1 (in my dreams!) For Each Shts In ThisWorkbook.Worksheets Shts.Activate Application.Goto Reference:="R1C1" Next End Sub I thought that this should work but does not seem to. What am I doing wrong? I also thought that maybe it wasn't working because with some of my wkbks, the data sheets are sent to me from another dept and they use Rows 1-5 for info about where the data has come from and these rows are then hidden, sheets are protected and also have data val on them so would be a hassle to unhide each sheet. So I took these sheets out to test macro and still did not seem to work. If someone could tell me how to make it work, could they also consider a workaround for my sheets with hidden rows please. Many thanks -- Diddy |
re-setting view of sheets so A1 is top left
Thanks Mike,
Sorry for the delay I seem to be having problems accessing the website. Thanks for your solution!! Cheers Diddy "Mike H" wrote: Hi, Try this Sub Sonic() Dim shts As Worksheet Const TopLeft As String = "A1" For Each Sheet In Worksheets Application.Goto Sheet.Range(TopLeft), scroll:=True Next End Sub Mike "Diddy" wrote: Hi everyone, I'm using Excel 2003 and would like a macro that sets all sheets back to A1 so that when I save a wkbk I don't have to check each sheet to see that it is displayed from the top. I've tried this Option Explicit Dim Shts As Worksheet Sub SettoA1() 'Resets all sheets to A1 (in my dreams!) For Each Shts In ThisWorkbook.Worksheets Shts.Activate Application.Goto Reference:="R1C1" Next End Sub I thought that this should work but does not seem to. What am I doing wrong? I also thought that maybe it wasn't working because with some of my wkbks, the data sheets are sent to me from another dept and they use Rows 1-5 for info about where the data has come from and these rows are then hidden, sheets are protected and also have data val on them so would be a hassle to unhide each sheet. So I took these sheets out to test macro and still did not seem to work. If someone could tell me how to make it work, could they also consider a workaround for my sheets with hidden rows please. Many thanks -- Diddy |
All times are GMT +1. The time now is 08:47 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com