$devcolumn=getcolumn($sheets, 1,"/dev/disk*");


sub getcolumn	{ 
    my ($sheet, $searchdir, $searchstr) = @_;
    $sheet = $Excel->Worksheets($sheet);
    my $LastCol = $sheet->UsedRange->Find({
        What=>$searchstr,
        LookAt=>2,
        LookIn=>-4123,
        MatchCase=>"False",
        SearchDirection=>$searchdir,
        SearchOrder=>xlByColumns})
      -{Column};
    return ${LastCol};