Command Button - Hide and Unhide Sheet VBA

Hi all, I'm trying to create a macro that will hide a sheet and unhide a different sheet and select a cell in the unhidden sheet. I keep getting a run-time error of 1004.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Sheets("SMT Selection Process").Visible = False
Sheets("Employee_List").Visible = True
Sheets("Employee_List").Select
Range("A1").Select

End Sub

It doesn't like the "Range("A1").Select, I'm using Excel 2007.

Thanks guys.

Hey clemsoncooz,

That did the trick! Thanks for the quick response!!!

Thanks again,
kimber20

No problem



If you like any of my suggestions please click the (star) reputationicon in the left down corner of this post.
If resolved - Mark a thread as 'solved' = please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.

Hey clemsoncooz,

I spoke too soon, it failed again with the same error and it doesn't like "Sheets("Employee_List").Range("A1").Select".

Can you post a sample document or the doc itself?

How do I post the file, I don't see an option for that.

To attach a file to your post, you need to be using the main 'New Post' or 'New Thread' page and not 'Quick Reply'.
To use the main 'New Post' page, click the 'Reply to Thread' button in the relevant thread.

On that page, below the message box, you will find a button labelled ' Go Advanced.'

Then click on 'Manage Attachments'.
Clicking this button will open a new window for uploading attachments.

You can upload an attachment either from your computer or from another URL by using the appropriate box on this page.
Alternatively you can click the Attachment Icon to open this page.

To upload a file from your computer, 'Add Files' button (TOP RIGHT). click the 'Select Files' button and locate the file.

Select Done then Submit Reply.

Great thanks
work perfect