Dave,

OK, this post may appear twice.  I posted around noon today and it
never showed up even though I got a message that said it was
successful.  Who knows?

Thanks for the fix, however I have another problem now.  When I try
and use this workbook now to call on another workbook for information
(same format), my macro won't copy the information and bring it back
into my original workbook.  I've pasted the entire macro in below (yes
it is sloppy, but the best I can do).

Please help,

Steve

Sub Macro1()

   Dim WkbkName As Variant
   Dim Wkbk As Workbook
   Dim SimplifiedWkbk As Workbook
   Dim RngToCopy As Range

   WkbkName = Application.GetOpenFilename(filefilter:="Excel files,
*.xls")

   If WkbkName = False Then
       Exit Sub 'user hit cancel
   End If

   Application.ScreenUpdating = False

   Set SimplifiedWkbk = Workbooks("Simplify Where-Used Report.xls")

   Set Wkbk = Workbooks.Open(Filename:=WkbkName)

   'use the first worksheet or the name???
   With Wkbk.Worksheets("sheet1")
       Cells.Select
       Selection.Interior.ColorIndex = xlNone
       Range("A1").Select

       Cells.Select
       Selection.RowHeight = 12.75
       Rows("1:10").Select
       Selection.Delete Shift:=xlUp
       Columns("A:A").Select
       Selection.Delete Shift:=xlToLeft
       Cells.Select

       With Selection
           .VerticalAlignment = xlTop
           .WrapText = False
           .Orientation = 0
           .AddIndent = False
           .ShrinkToFit = False
           .ReadingOrder = xlContext
           .MergeCells = False
       End With

       Columns("C:S").Select
       Selection.Delete Shift:=xlToLeft
       Range("A1").Select
       ActiveSheet.DrawingObjects.Select
       Selection.Delete
       Columns("B:B").Select
       Selection.Insert Shift:=xlToRight
       Selection.Insert Shift:=xlToRight
       Selection.Insert Shift:=xlToRight
       Selection.Insert Shift:=xlToRight

       Columns("A:A").Select
       Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
           TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True,
Tab:=True, _
           Semicolon:=False, Comma:=False, Space:=True, Other:=False,
FieldInfo _
           :=Array(Array(1, 1), Array(2, 1), Array(3, 1)),
TrailingMinusNumbers:=True

       Columns("D:E").Select
       Selection.Delete Shift:=xlToLeft
       Range("A1").Select

       Columns("A:A").Select
       Selection.ColumnWidth = 5

       With Selection
           .HorizontalAlignment = xlCenter
           .VerticalAlignment = xlTop
           .WrapText = False
           .Orientation = 0
           .AddIndent = False
           .IndentLevel = 0
           .ShrinkToFit = False
           .ReadingOrder = xlContext
           .MergeCells = False
       End With

       Columns("C:C").Select
       Selection.ColumnWidth = 18
       Columns("D:D").Select
       Selection.ColumnWidth = 54

       Set RngToCopy = .Cells
   End With

   RngToCopy.Copy _
       Destination:=SimplifiedWkbk.Worksheets("Where-Used
Imported").Range("A1")

   Dim DummyRng As Range  'used later

   With SimplifiedWkbk.Worksheets("Where-Used Imported")
       'did you want just D1 deleted or all of row 1
       '.rows(1).delete ' would delete the whole row
       .Range("D1").Delete Shift:=xlUp

        On Error Resume Next
        .Range("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        On Error GoTo 0

        Set DummyRng = .UsedRange

        If .Columns(1).Cells.SpecialCells(xlCellTypeVisible) _
                            .Cells.Count = 1 Then
            Set RngToCopy = Nothing
        Else
            Set RngToCopy = .Columns(1).Resize(, 4) _
                                .Cells.SpecialCells(xlCellTypeVisible)
       End If
   End With

   If RngToCopy Is Nothing Then
       'nothing to do
   Else
       RngToCopy.Copy
       With SimplifiedWkbk.Worksheets("Where-Used Imported Clnd Up")
           .Range("A1").PasteSpecial Paste:=xlPasteValues, _
               Operation:=xlNone, SkipBlanks:=False, Transpose:=False

       End With
   End If

   With SimplifiedWkbk.Worksheets("Filter Out Blanks 1")
       .AutoFilterMode = False
       .UsedRange.Columns.AutoFilter Field:=1, Criteria1:="X"
       With .AutoFilter.Range
           If .Columns(1).Cells.SpecialCells(xlCellTypeVisible) _
                .Cells.Count = 1 Then
               'only the headers are visible
               'should anything be done?
               Set RngToCopy = Nothing
           Else
               Set RngToCopy = .Columns(2).Resize(, 4) _
                                   .Cells.SpecialCells(xlCellTypeVisible)
           End If
       End With
   End With

   If RngToCopy Is Nothing Then
       'nothing to do
   Else
       RngToCopy.Copy
       With SimplifiedWkbk.Worksheets("Filter Out Blanks 2")
           .Range("C1").PasteSpecial Paste:=xlPasteValues, _
               Operation:=xlNone, SkipBlanks:=False, Transpose:=False
           .AutoFilterMode = False
           .UsedRange.Columns.AutoFilter Field:=5, Criteria1:="<>"
           With .AutoFilter.Range
               If .Columns(1).Cells.SpecialCells(xlCellTypeVisible) _
                     .Cells.Count = 1 Then
                   'only the headers are visible
                   'do nothing again?
                   Set RngToCopy = Nothing
               Else
                   'just the visible data
                   Set RngToCopy = .Resize(.Rows.Count - 1,
6).Offset(1, 0) _
                                      .Cells.SpecialCells(xlCellTypeVisible)
               End If
           End With
       End With
   End If

   If RngToCopy Is Nothing Then
       'do nothing
   Else
       RngToCopy.Copy
       With SimplifiedWkbk.Worksheets("Simplified Where-Used")
           .Range("A1").PasteSpecial Paste:=xlPasteValues, _
               Operation:=xlNone, SkipBlanks:=False, Transpose:=False
           With SimplifiedWkbk.Worksheets("Simplified Where-Used")
                .Range("E1:F2000").Cut _
                Destination:=SimplifiedWkbk.Worksheets("Simplified
Where-Used").Range("C1")

                With SimplifiedWkbk.Worksheets("Simplified Where-
Used")
                    .Range("E1:F2000").Clear _

                End With
           End With
       End With
   End If

   If RngToCopy Is Nothing Then
       'nothing to do
   Else
       RngToCopy.Copy
       With SimplifiedWkbk.Worksheets("Simplified Where-Used")
           .Range("a1:d2500").AdvancedFilter Action:=xlFilterInPlace,
_
               CriteriaRange:=Worksheets("Simplified Where-
Used").Range("a1:d2500"), Unique:=True
           .Range("_filterDataBase").Cells.SpecialCells(xlCellTypeVisible).Copy
_
               Destination:=Worksheets("Dupl Removed Where-
Used").Range("a1")
           With .Range("_filterDataBase")
               If .Columns(1).Cells.SpecialCells(xlCellTypeVisible) _
                     .Cells.Count = 1 Then
                   'only the headers are visible
                   'do nothing again?
                   Set RngToCopy = Nothing
               Else
                   'just the visible data
                   Set RngToCopy = .Resize(.Rows.Count - 1,
4).Offset(1, 0) _
                                      .Cells.SpecialCells(xlCellTypeVisible)
               End If
           End With
       End With
   End If

End Sub