Hi
I have the following macro:-
Sub CopyRows()
' copy all rows of data in worksheet 'temp' to the appropriate worksheets
Dim iLooper As Long, NextRow As Long, ws As Worksheet, strSheet As String
With Worksheets("temp")
For iLooper = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If UCase(Trim(.Cells(iLooper, "B").Value)) Like "ENROLLMENT*" Then
strSheet = "ENROLLMENT"
ElseIf UCase(Trim(.Cells(iLooper, "B").Value)) Like "WEEK*" Then
strSheet = .Cells(iLooper, "a").Text
Else
strSheet = ""
End If
If strSheet <> "" Then
Set ws = Worksheets(strSheet)
NextRow = ws.Columns("B").Find("*", , xlValues, , 1, 2).Row + 1


ws.Rows(NextRow).Insert
ws.Cells(NextRow, "A").Resize(, 8).Value = _
.Cells(iLooper, "A").Resize(, 8).Value
End If
Next
End With
' delete all rows of data in worksheet 'temp'
Dim r As Long
For r = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(r, 1) <> "" Then Rows(r).Delete
Next r
End Sub

When I run it I get the following error:-
Run-time error '91' :
Object variable or With Block variable not set
with the red line highlighted

Any suggestions on what is going wrong

Bob M
p.s. this macro was working OK before ?????

What changes were made since the last time it worked ?

Also, perhaps Dim "Columns" and / or "Row" ? Can't test it here cuz I can't replicate your workbook. Taking a stab at the issue.

Hi

I have not changed anything that is related to the macro

It is supposed to copy all 'Enrollment' data to an Enrollment tab
all No. 1 data to tab 1
all No. 2 data to tab 2 etc and finally delete all data from temp tab which is where the macro button is

I am hoping somebody can interpret the error message

Bob M

If you are willing to post your project to a download site (Amazon Cloud, Google, MS One Cloud, etc) I can review it to determine the cause (hopefully).

Remove all confidential data before doing so.