Change ws designator
set ws = worksheets("new ip office")
For Each cell In ws.Range("D1:D" & ws.Range("D65536").End(xlUp).Row)
If IsNumeric(cell) = True Then
cell.EntireRow.Copy _
Sheets("Sheet2").Range("A65536").End(xlUp).Offset( 1, 0)
End If
Next cell
Jerry Foley wrote:
Hello, Given the following macro:
Sub mastertest()
Dim ws As Worksheet, cell As Range, rng As Range
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "Sheet2" Then
For Each cell In ws.Range("D1:D" & ws.Range("D65536").End(xlUp).Row)
If IsNumeric(cell) = True Then
cell.EntireRow.Copy _
Sheets("Sheet2").Range("A65536").End(xlUp).Offset( 1, 0)
End If
Next cell
End If
Next ws
End Sub
How do I edit it to only seach col D only in the spreadsheet tab "New IP
Office" and write the results in Sheet2?
--
Dave Peterson
|