--- lib/Spreadsheet/XLSX.pm~	2011-05-29 21:14:42.000000000 +0530
+++ lib/Spreadsheet/XLSX.pm	2011-05-29 21:22:14.000000000 +0530
@@ -156,14 +156,15 @@
 		my $s2   = 0;
 		my $sty  = 0;
 		foreach ($member_sheet -> contents =~ /(\<.*?\/?\>|.*?(?=\<))/g) {
-			if (/^\<c r=\"([A-Z])([A-Z]?)(\d+)\"/) {
+			if (/^\<c r=\"([A-Z])([A-Z]*)(\d+)\"/) {
 				
 				$col = ord ($1) - 65;
 				
-				if ($2) {
+				my $rest = $2;
+				while (my $l = substr ($rest, 0, 1, '')) {
                 			$col++;
 					$col *= 26;
-					$col += (ord ($2) - 65);
+					$col += (ord ($l) - 65);
 				}
 				
 				$row = $3 - 1;