VB Code to change format, save in notepad file

Hello Riz,

You're usually pretty good at making changes to simple code. I was hoping you could make the changes to my macro yourself.

Here is the revised macro code...

Sub SaveToNotepad()

    Dim Data        As Variant
    Dim Filepath    As String
    Dim Rng         As Range
    Dim row         As Long
    Dim Wks         As Worksheet
        
        
        Set Wks = Worksheets("Sheet1")
        Set Rng = Wks.Range("K1", Wks.Cells(Rows.Count, "K").End(xlUp))
        
        Filepath = Wks.Range("L1")

        ReDim Data(1 To Rng.Rows.Count, 1)
        
        Data = Rng.Value
        
        Open Filepath For Output Access Write As #1
            For row = 1 To Rng.Rows.Count
                If IsNumeric(Data(row, 1)) Then
                    Print #1, "$" & Data(row, 1)
                Else
                    Print #1, Data(row, 1)
                End If
            Next row
        Close #1
        
End Sub