Saving Tabs as Files (Unique Filenames)

[dominicwellsuk]

I'm trying to save all worksheets within a workbook as individual workbooks, and all was going well until I tried to introduce a unique filename based on cell B2 of each tab. Current code is:

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Copy
With ActiveWorkbook
UNIQUEREF = ActiveSheet.Range("B2")
.SaveAs Filename:="D:\" & UNIQUEREF & ".xls" 'Error Line
.Close
End With
Next ws

I get the error message: Method 'SaveAs' of object '_Workbook' failed

Any ideas how to resolve this? Thanks.

 

[dominicwellsuk]

By the way, cell B2 of each tab contains a value generated by vlookup.

 

[dominicwellsuk]

Anyone got any ideas on this? I'm sure it's something very simple, but it's got me stuck.

Thanks

 

[RichardMGreen]

Step through your code and check what cell B2 contains in the created workbook.
You'll probably find it contains an error of some description.