use strict;
use warnings;
use Win32::OLE;
use feature 'say';

my $Excel = Win32::OLE->new('Excel.Application');
$Excel->{Visible} = 1;
my $Book = $Excel->Workbooks->Add;
for my $nSht (2..$Book->Sheets->{Count}) {
    $Book->Sheets(2)->Delete;
}

my $Sheet = $Book->Sheets(1);
say $Sheet->UsedRange->Find('Go');
$Sheet->Cells(3,4)->{Value} = 'Go';
say $Sheet->UsedRange->Find('Go')->Address;
$Excel->{DisplayAlerts} = 0;
$Excel->Quit;