Hi,

Here's on way

Sub Sonic()
Dim V As Variant
Dim S As String
Dim ws As Worksheet
'Change the next line to your worksheet names
S = "aaa,bbb,ccc,ddd,eee,fff,ggg,hhh"
V = Split(S, ",")
For Each ws In ActiveWorkbook.Worksheets
If Not IsError(Application.Match(CStr(ws.Name), V, 0)) Then

'your code goes here

End If
Next
End Sub



Mike

"Jazz" wrote:

I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop