saving only one sheet

hi all

now I'm using save copy macro for saving entire workbook but I would like to have the same but for saving only one sheet from workbook can someone correct my code?

here is code I use now

    ThisFile = "br-" & Range("D5").Value & "_" & Range("D4") & ".xls": FileFormatNum = 56
    ThisWorkbook.SaveCopyAs Filename:="D:\backup\" & ThisFile

thank you