macro to run sPlot with TnP