Macro i Excel til at gemme UTF-8 CSV fil ved exit

Hej,

Jeg har prøvet at lave en macro der skal gemme den nuværende excel fil til en CSV fil (med UTF-8 encoding), når brugeren lukker dokumentet. Dog får jeg en fejl når macroen kører. Er der nogen der kan hjælpe mig?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strFilename As String
  strFilename = "H:\Newland Offline DB\Til Kunde\barcodes.csv"
  If strFilename <> "False" Then
    ActiveSheet.SaveAs Encoding:=msoEncodingUTF8, Filename:=strFilename, FileFormat:=xlCSV
   
  End If
End Sub

Jeg takker på forhånd :)