# (This is in Spreadsheet/ParseXLSX.pm.)

 sub _dimensions {
     my $self = shift;
     my ($dim) = @_;
 
+    $dim  = "A1:$dim"
+        if $dim !~ /:/;
+
     my ($topleft, $bottomright) = split ':', $dim;
     $bottomright = $topleft unless defined $bottomright;
     ...