What error message do you get?
One issue could be caused by using select/selection, which would be fixed by:
Code:
Sub RunPlatformClientAcct()
Sheets("Sheet1").Calculate
Sheets("Sheet1").Range("C1").QueryTable.Refresh BackgroundQuery:=False
End Sub
NB. If you are using XL2007 or later (you didn't specify) then the code will be different.
Incidentally, there's no need to have a button here. If you have a range parameter set up, you can right click on the querytable and go to Parameters. You can then tick the "Refresh automatically when cell value changes" checkbox for that parameter.
