Excel Start-Up Macro

Pat_Calif · Mar 16th, 2002, 01:22 PM

Help!!! I'm trying something that's probably easy but I don't know the secret. I want to insert a start-up macro in an Excel 2000 worksheet that has multiple tabs. All I want the macro to do is automatically position the cursor in a specific cell on a specified tab (e.g., Cell A1 of Tab1). I know how to "record" macros but don't know Visual Basic. If I "record" the macro, how can I make it run each time the worksheet is opened? Thanks for any help you can give me!!!!

Dave Hawley · Mar 16th, 2002, 01:45 PM

Hi Pat

Right click on the sheet name tab and select "View Code", now paste is this code:

Private Sub Worksheet_Activate()
Application.Goto Range("A1"), True
End Sub

OR, if you want it to go to a specied cell on sheet 1 whenever the Workbooks opens:

Right click on the Excel icon, top left next to "File" and select "View Code", paste in this code:

Private Sub Workbook_Open()
Application.Goto Sheets(1).Range("A1"), True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 16th, 2002, 01:22 PM	#1
Pat_Calif New Member Join Date: Mar 2002 Posts: 1	Help!!! I'm trying something that's probably easy but I don't know the secret. I want to insert a start-up macro in an Excel 2000 worksheet that has multiple tabs. All I want the macro to do is automatically position the cursor in a specific cell on a specified tab (e.g., Cell A1 of Tab1). I know how to "record" macros but don't know Visual Basic. If I "record" the macro, how can I make it run each time the worksheet is opened? Thanks for any help you can give me!!!!

Mar 16th, 2002, 01:45 PM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Pat Right click on the sheet name tab and select "View Code", now paste is this code: Private Sub Worksheet_Activate() Application.Goto Range("A1"), True End Sub OR, if you want it to go to a specied cell on sheet 1 whenever the Workbooks opens: Right click on the Excel icon, top left next to "File" and select "View Code", paste in this code: Private Sub Workbook_Open() Application.Goto Sheets(1).Range("A1"), True End Sub