Running Macro on same row in two worksheets

I know this has been asked many times on many different forums, which is where I got the code I'm using, but I just can't seem to get it to work correctly. My workbook has five worksheets, and my code is supposed to insert a blank row at the same spot on two of them, copying the formulae from the row above. However, all it ends up doing is inserting five blank rows with the formulae in the worksheet the user is viewing. Now, I did combine two codes from two different places, so I'm sure the problem is I didn't combine them properly (one for inserting the blank row, the other for doing it across multiple worksheets). The two worksheets I want this code to run on are labeled "Register" and "Budget". Here's my code:

Sub Insert_Rows()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Register" Or ws.Name <> "Budget" Then
   If Selection.Rows.Count <> 1 Then Exit Sub
   If Selection.Areas.Count <> 1 Then Exit Sub
   With Selection.EntireRow
   .Offset(-1).Copy
   .Insert
   On Error Resume Next
   .Offset(-1).SpecialCells(xlCellTypeConstants, 23).ClearContents
   On Error GoTo 0
   End With
End If
Next ws
End Sub

Thanks for the help!

Hi, dale040205,

although you loop through all sheets the code will always be performed on the active sheet due to the fact that there is no indication for VBA to apply it to different worksheets.

Maybe give this code a try:

Sub Insert_Rows()
Dim ws As Worksheet
Dim lngRow As Long

If Selection.Rows.Count <> 1 Then Exit Sub
If Selection.Areas.Count <> 1 Then Exit Sub
lngRow = Selection.Row

For Each ws In ActiveWorkbook.Worksheets
  If ws.Name <> "Register" Or ws.Name <> "Budget" Then
    With ws.Rows(lngRow)
      .Offset(-1).Copy
      .Insert
      On Error Resume Next
      .Offset(-1).SpecialCells(xlCellTypeConstants, 23).ClearContents
      On Error GoTo 0
    End With
  End If
Next ws

End Sub

And please use Code-Tags to display the code as requested per Forum-Rules.

Ciao,
Holger