Why ? What is error 424 ?


M

manfareed

Hi,

I get the following error ...

"Object required (Error 424)"

Its on the following line.

LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Column

Sub test()

NewRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row

For Each Sht In Sheets
If Sht.Name <> "Summary" Then
With Sht
LastRow = .Range("A" & Rows.Count).End(xlUp).Row

For RowCount = 1 To LastRow
If .Range("A" & RowCount).Interior.ColorIndex = 15 Or _
.Range("A" & RowCount).Interior.ColorIndex = 15 Then

LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Column
Sheets("Summary").Range("A" & NewRow) = .Name
.Range(.Range("A" & RowCount), .Cells(RowCount,
LastCol)).Copy _
Destination:=Sheets("Summary").Range("B" & NewRow)
NewRow = NewRow + 1
End If
Next RowCount
End With
End If
Next Sht

End Sub

Thanks
 
Ad

Advertisements

G

Gary''s Student

LastCol = .Cells(RowCount,Columns.Count).End(xlToLeft).Column
in place of
LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Column
 
Ad

Advertisements

M

manfareed

Many Thanks ...

Gary''s Student said:
LastCol = .Cells(RowCount,Columns.Count).End(xlToLeft).Column
in place of
LastCol = .Cells(RowCount.Columns.Count).End(xlToLeft).Column
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top