Macro to refresh connections and add formulas

I have an Excel file with a number of connections which can be refreshed. I am trying to build the following macro to a) refresh all connections throughout the workbook, b) add a value to two specific cells on one worksheet, then c) add two formulas which should be applied as far as the last row of data (once the connections have been refreshed):

Please Login or Register  to view this content.

This returns an error as follows:

ErrorMessage.PNG

If I choose 'End', the connections continue to refresh and the values are inserted into cells N1 and O1 but the formulas are not added.

Any ideas? I'm pretty new to VBA so apologies if I've made some very basic errors!

Oops, please use [CODE][/CODE] tags when posting code. It makes it easier to read and long code won't clutter up the page

You have two subs there with the same name, they need to have unique names.

In the second instance of GetData() there is a variable called LastRow which hasn't been declared or set. See here about declaring variables.
http://www.cpearson.com/Excel/DeclaringVariables.aspx
It's almost always best to turn on the setting that puts "Option Explicit" at the top of your modules so that you can't use a variable that hasn't been declared.

To get your LastRow number see here: http://www.cpearson.com/Excel/LastCell.aspx


I hope that helps

Happy to help

---

If that takes care of your original question, please select Thread Tools from the menu link above to mark this thread as SOLVED.
To say thanks to the user(s) who contributed towards the solution, you can use the "Add Reputation" button on their helpful post(s).
Thanks!

Code tags added and thread marked as solved - please try to follow this forum's etiquette in future threads. Thanks!