I have a list of consecutive dates running down column A in dd/mm/yy format. I am trying to insert 2 rows after every Sunday. My feeble attempt below completely failed, would appreciate any suggestions.
Thanks
Matt
Dim irow As Long
irow = 1
Do While Cells(irow, 2) <> ""
If Format(Range("A" & irow, "dddd")) = "Monday" Then
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End If
irow = irow + 1
Loop
End Sub
Thanks
Matt
Dim irow As Long
irow = 1
Do While Cells(irow, 2) <> ""
If Format(Range("A" & irow, "dddd")) = "Monday" Then
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End If
irow = irow + 1
Loop
End Sub