/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 vote169 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote174 views1 answer
Excel delete ever other vba
VBA
5 votes178 views1 answer
Excel vba low word from Long Integer
VBA
8 votes302 views1 answer
Vba make a short integer from two bytes
VBA
0 vote116 views1 answer
How to sort datagridview in vb.net
VBA
2 votes165 views2 answers
Excel vba copy values range to another range
VBA
0 vote173 views1 answer
Excel vba combine ranges
VBA
0 vote161 views1 answer
Change whcih control a user has selected vb
VBA
0 vote156 views1 answer
Vba check 32 or 64 bit
VBA
0 vote162 views1 answer
Vba get relative cell address
VBA