Save Cells to text

[BrendanDixon]

Hi All,

I have a worksheet that has some text and values

I want to save this as a text file but the problem I am facing is that I only know how to save the whole worksheet whereas I only want to save Cells B15 To B38 and cells D16 to D37

Can anyone tell me how to do this?

Thanks

 

[BrendanDixon]

bump

 

[texasaswang]

The easy way to do this, copy/paste the desired cells to a new worksheet. Then save that worksheet as a txt file.

Sub Macro1()
'
' Macro1 Macro
'
'
    Range("B15").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    Range("D16").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\xxxxxxxxx\Desktop\Book1.txt", FileFormat:=xlText, CreateBackup:=False
End Sub