Hi,
I am looking for a macro that returns the selected cell to cell A1 on every sheet and ends on the first sheet. The names of the sheets are ever-changing so I need it to be relative with no specific naming.
Thank you for your help. I really appreciate it.
Last edited by Jason Carlos; 05-01-2014 at 07:23 PM.
Try the following (and check for errors first - have no excel installed on this computer to try myself):
Please Login or Register to view this content.
Best Regards,
Kaper
Hey Kaper,
I really appreciate the help. I plugged it in, the macro takes me to the first worksheet but the cell remains selected on which ever cell was previously selected.
I am not sure what to change in the macro.
Any suggestions?
[/QUOTE]Please Login or Register to view this content.
Thank you laripa but when I tied this Macro, I got :
"Object variable or With Block variable not set"
On the Line:
Set MyCell = wb.sheets(1).Range("A1")
I don't have Excel in front of me but try the below:
[/QUOTE]Originally Posted by laripa
Please Login or Register to view this content.
Close!
That one took me to the first Sheet but did not select A1 in all of the other sheets.
I should have read carefully your post. The below should work.
Please Login or Register to view this content.
Laripa you are a Boss!
That worked perfectly, thank you for the help!
Wait I apologize I spoke to soon. It worked the first time and then didn't work after that. It is still not returning the selected cell to A1 on all pages.
I have the macro saved in my personal workbook if that makes a difference.
Jason--
I tested laripa's code running it from personal.xlsb and from a test worksheet and it worked repeatedly without error. Perhaps you should upload your worksheet for examination to determine if there are other issues.
Alan
Alan עַם יִשְׂרָאֵל חַי
Change an Ugly Report with Power Query
Database Normalization
Complete Guide to Power Query
Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
I am attaching the example workbook I am using.
It is a simple workbook that says Test on Each page and I made sure that active cell is not A1.
I have created the Macro that works for me. Thank you everyone for the help it got me on the right track! It is:
Please Login or Register to view this content.
Last edited by alansidman; 05-01-2014 at 08:50 PM. Reason: added code tags
Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code betweentags makes your code much easier to read and copy for testing, it also maintains VBA formatting.Please Login or Register to view this content.
Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html
(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks