sub RFSummary {
	my @files;
	my $Excel = Win32::OLE->GetActiveObject('Excel.Application') 
		|| Win32::OLE->new('Excel.Application', 'Quit');
	my $RFSBook = $Excel->Workbooks->Add || die "Uable to create RFSummary file $!";
	my $WBook;
	my $WSheet;
	my $i = 0;
	my @sumsheets;

	@files = $mw->getOpenFile(-initialdir=>"E:\\wi2wi\\Logfiles", 
		-title=>"Select Excel files", -multiple=>1);
	@sumsheets = ("TxP_Summary", "RxPER_Summary");
	$RFSBook = $Excel->ActiveWorkbook;
	my $RFSWSheet = $RFSBook->Worksheets->Add;
	foreach (@files) {
		print "$sumsheets[$i]\n";
		$WBook = $Excel->Workbooks->Open($_);
		$WBook->Worksheets($sumsheets[$i])->Copy;
		$RFSWSheet->Paste;
		$i++;
	}

	$RFSBook->SaveAs("E:\\wi2wi\\Logfiles\\RFSummary");
	#$RFSBook->Close;
}