Loop thru sheets

[bobkap]

I cannot get this code to run except for my active sheet. I will not sequence to the next sheets in the workbook. Any help would be greatly appreciated.

finalcol = Cells(1, Columns.Count).End(xlToLeft).Column
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Instpay" Or ws.Name <> "Payroll Data" Then
grosscol = Application.Match("Gross", Range("1:1"), 0)
grosstot = WorksheetFunction.Sum(Range(Cells(2, grosscol), Cells(finalrow, grosscol)))
Cells(finalrow + 1, grosscol).Value = grosstot
Cells(finalrow + 1, grosscol).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End If
Next ws

 

[Rick Rothstein]

I cannot get this code to run except for my active sheet. I will not sequence to the next sheets in the workbook. Any help would be greatly appreciated.

finalcol = Cells(1, Columns.Count).End(xlToLeft).Column
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Instpay" Or ws.Name <> "Payroll Data" Then
grosscol = Application.Match("Gross", Range("1:1"), 0)
grosstot = WorksheetFunction.Sum(Range(Cells(2, grosscol), Cells(finalrow, grosscol)))
Cells(finalrow + 1, grosscol).Value = grosstot
Cells(finalrow + 1, grosscol).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End If
Next ws

I did not look at the rest of your code, but I think the reason it is not running as you want is because the red highlighted "Or" should be "And".

 

[DanteAmor]

Reference to the sheet is missing. I attached the macro with the changes, also considering Rick's note.
Sheet names are case sensitive

Sub test()
  Dim finalrow As Long, ws As Worksheet, grosscol As Long, grosstot As Variant
  For Each ws In ThisWorkbook.Worksheets
    If [COLOR=#0000ff]LCase(ws.Name) <> "instpay"[/COLOR] [COLOR=#ff0000]And [/COLOR][COLOR=#0000ff]LCase(ws.Name) <> "payroll data"[/COLOR] Then
      grosscol = Application.Match("Gross", [COLOR=#008000]ws[/COLOR].Range("1:1"), 0)
      finalrow = [COLOR=#008000]ws[/COLOR].Cells(Rows.Count, grosscol).End(xlUp).Row
      grosstot = WorksheetFunction.Sum([COLOR=#008000]ws[/COLOR].Range([COLOR=#008000]ws[/COLOR].Cells(2, grosscol), [COLOR=#008000]ws[/COLOR].Cells(finalrow, grosscol)))
      [COLOR=#008000]ws[/COLOR].Cells(finalrow + 1, grosscol).Value = grosstot
      With [COLOR=#008000]ws[/COLOR].Cells(finalrow + 1, grosscol).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
    End If
  Next ws
End Sub