Solved: Change to variable

[thomas.szwed]

Hi there,

How can i change the following so that instead of saving my whole workbook, it just saves a specific sheet? The sheet i want to save varies though but is identified in my variable sSheetName.

[vba]ActiveWorkbook.SaveAs Filename[/vba]

[VBA]Dim sSheetName As String

On Error Resume Next
sSheetName = Application.VLookup(Range("K10").Value, Range("F117:G125"), 2, False)
On Error GoTo 0
[/VBA]

Thanks

[Bob Phillips]

[vba]

Dim sSheetName As String

On Error Resume Next
sSheetName = Application.VLookup(Range("K10").Value, Range("F117:G125"), 2, False)
On Error GoTo 0
Worksheets(sSheetName).Copy
ActiveWorkbook.SaveAs Filename
[/vba]