Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Workbook_Open code help
HI I'm trying to put code in the open workbook area so that sheet1 and sheet2 both open with the cursor on A200. I'm getting errors with this code : Sheets("Sheet1").Range("A200").Select Sheets("Sheet2").Range("A200").Select Can anybody advise how to do this? Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Workbook_Open code help
In article , Paul
writes Hi Colin, You're getting errors because Sheet2 is not the active sheet when you're trying to select cell A200. Try this instead: Code: -------------------- Private Sub Workbook_Open() With Application .ScreenUpdating = False .Goto Sheets("Sheet1").Range("A200"), scroll:=True .Goto Sheets("Sheet2").Range("A200"), scroll:=True .ScreenUpdating = True End With End Sub Hi Paul OK Thanks for your help. I couldn't get it working , unfortunately. I think it's my fault in that I do have some other code already there which may be interfering. This is the code I already have : Private Sub Workbook_Open() Dim mysheets As Sheets Set mysheets = Worksheets(Array(1)) For Each Sheet In mysheets Sheets("Sheet1").ScrollArea = "A1:L26" Sheets("Sheet2").ScrollArea = "A1:L26" Next Range("A200").Select End Sub Can your code be integrated to have the desired effect? Thanks again for your time and expertise. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Private Sub Workbook_Open() doesn't run | Excel Discussion (Misc queries) | |||
About workbook_Open madro | Excel Worksheet Functions | |||
Problem with Workbook_open | Excel Discussion (Misc queries) | |||
Deleting Workbook_Open code | Excel Discussion (Misc queries) | |||
Workbook_Open () | Excel Discussion (Misc queries) |