B
Bishop
Why doesn't this work:
For Each wb In Workbooks
'Test to see if wb's name is like "*C&A PF*.xlsm"
If wb.Name Like "*C&A PF*.xlsm" Then
With wb
CDLastRow = .Sheets("Catalyst Dump").Range("A" & Rows.Count) _
& .End(xlUp).Row
.Worksheets("Catalyst Dump").Columns("D").ColumnWidth = 18
End With
End If
Next
The line starting with CDLastRow is giving me the error. Object doesn't
support this property or method.
For Each wb In Workbooks
'Test to see if wb's name is like "*C&A PF*.xlsm"
If wb.Name Like "*C&A PF*.xlsm" Then
With wb
CDLastRow = .Sheets("Catalyst Dump").Range("A" & Rows.Count) _
& .End(xlUp).Row
.Worksheets("Catalyst Dump").Columns("D").ColumnWidth = 18
End With
End If
Next
The line starting with CDLastRow is giving me the error. Object doesn't
support this property or method.