/VBA/Excel vba export sheet as a csv without losing focus of my current workbook

Excel vba export sheet as a csv without losing focus of my current workbook

'VBA function to save current worksheet as a CSV file without losing
'focus. The CSV file is saved in the same directory as the current
'workbook. The Local Separator is utilized:

Sub SaveSheetAsCSV()
  With ActiveSheet
    .Copy
     ActiveWorkbook.SaveAs Left(.Parent.Name, InStrRev(.Parent.Name, ".")) & .Name & ".csv", xlCSV, Local:=True
     ActiveWorkbook.Close False
    .Activate
  End With
End Sub

Source: academy.excelhero.com

Similar codes

0 vote157 views1 answer
Vba sheet visible
VBA
32 votes304 views2 answers
Excel vba column letter
VBA
0 vote157 views1 answer
VB Error Code BC30201
VBA
4 votes172 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
1 vote178 views1 answer
Extract the second word in a text in excel
VBA
0 vote170 views1 answer
Vba dictionary clear
VBA
1 vote157 views2 answers
Vba string to date
VBA
1 vote156 views1 answer
Excel vba last column in range
VBA
0 vote160 views1 answer
Visual basic msdos
VBA
0 vote146 views1 answer
Style percent not found vba
VBA