Microsoft Office Forums - View Single Post - Creating multiple spreadsheets based on text

charlesdh · 04-09-2015, 03:59 PM

There is 1 thing about this code it will over write sheet1. If this is a problem you can use this line of code.

Code:

if Fpass = False And ActiveWorkbook.Sheets("Sheet1").Range("D8").Text = " " Then '' added the "and" statement
                        ActiveWorkbook.Sheets("Sheet1").Range("D8").Value = ws.Cells(Dcell.Row, 1).Text
                        ActiveWorkbook.Sheets("Sheet1").Range("D12").Value = ws.Cells(Dcell.Row, 2).Text
                        Fpass = True
                    End If