Oops.....that's what I get for not actually running the code. The Select Rows Where() should have been
dt << get rows where( :Count <= 40 );
However, given that you also want the rows selected....I think the following script will work better
names default to here(1);
dt = Current Data Table();
dt << Select Rows Where( :Count <= 40 );
NumberOfRows = N Rows( dt << get selected rows );
New Window( "Message",
modal,
H List Box(
Spacer Box( size( 5, 0 ) ),
Text Box( Char( Length( NumberOfRows ) ) ),
Text Box( " Columns Were Deleted" )
)
);
Jim