Save Excel 2010 File In CSV Format VBA

[LalitPandey87]

Please download below file with the solution.

SaveDataAsCSV.xlsm

Change code accordingly.

[mag]

Thanks For your help .. but i need to do some changes. i need to put only Name .. Select Range option Should be in VBA Code Eg A1:C20 no need to prompt msg Box to Select Range

[LalitPandey87]

Replace previous GetData Procedure with this one

Sub GetData()

    Dim rngDataRange                As Range
    
    Set rngDataRange = ActiveSheet.Range("A1:C20")
    
    If Not rngDataRange Is Nothing and rngDataRange.Rows.Count > 0 Then
        DataSaveAs rngDataRange, XL_CSV
    End If
    
    Set rngDataRange = Nothing
     
End Sub

Change Range accordingly.