"bigwheel" wrote:

Try this:-

If Range("Tuesday!A5") = 01 Then
Range ("Tuesday-Date-Codes!A6").Select
ActiveCell.EntireRow.Copy

Sheets(3).Select 'insert this new line

ActiveCell.Offset(1).EntireRow.Insert
Application.CutCopyMode = False
End If

I am still getting the same error. Method 'Range' of object'_Global' failed