diff --git a/lib/Excel/Writer/XLSX/Utility.pm b/lib/Excel/Writer/XLSX/Utility.pm index 4f3434c5..2a621c88 100644 --- a/lib/Excel/Writer/XLSX/Utility.pm +++ b/lib/Excel/Writer/XLSX/Utility.pm @@ -288,7 +288,7 @@ sub quote_sheetname { } if ( defined $2 ) { - my $col = $1; + my $col = $2; if ( $col > 0 && $col <= $col_max ) { $needs_quoting = 1; }