跨工作表的VBA宏-完全合格？

Question

This macro works if my active worksheet is "Pipeline - Underwriting Data D" but not from any other worksheet.

I'm assuming it's because I'm incorrectly qualifying something?

Any help in tweaking the code so that it will run without selecting/activating the worksheet in question would be very much appreciated!

Dim pipe As Integer
With Sheets("Pipeline - Underwriting Data D")
    pipe = .Range("A" & .Rows.Count).End(xlUp).Row - 1
End With

With Sheets("Pipeline - Underwriting Data D")
    Dim Containword As String
    Dim rng As Range
    Set rng = Range(Cells(2, 14), Cells(pipe + 1, 14))
    Containword = "Outside Counsel"
    For Each cell In rng.Cells
        If cell.find(Containword) Is Nothing Then cell.Clear
    Next cell
End With

Answer 1

You are missing the "." for your "With" block that would point to the right range. See below:

Dim pipe As Integer
With Sheets("Pipeline - Underwriting Data D")
    pipe = .Range("A" & .Rows.Count).End(xlUp).Row - 1
End With

With Sheets("Pipeline - Underwriting Data D")
    Dim Containword As String
    Dim rng As Range
    Set rng = .Range(.Cells(2, 14), .Cells(pipe + 1, 14))
    Containword = "Outside Counsel"
    For Each cell In rng.Cells
        If cell.find(Containword) Is Nothing Then cell.Clear
    Next cell
End With