Microsoft Office Forums - View Single Post

npalmer610 · 03-14-2016, 07:32 AM

Quote:

Originally Posted by Philb1

This will loop through the sheets and provided the worksheet isn't blank, will run your code
Cheers

Code:

Option Explicit

Sub CopytoLast()
Dim LastRow As Long, shtCount As Long, i As Long

shtCount = ThisWorkbook.Worksheets.Count

For i = 1 To shtCount
    If Not Application.WorksheetFunction.CountA(ThisWorkbook.Sheets(i).Cells) = 0 Then
        Columns("F").ClearContents
        LastRow = Cells(Rows.Count, "E").End(xlUp).Row
        Range("F2:F" & LastRow).Formula = "=CONCATENATE(A2,"" "", D2, "" "", E2)"
    End If
Next i

Exit Sub
End Sub

Worked perfectly ... thank you!