Dim eeRefSheets As Excel.Worksheet For i As Long = 1 To 3 Step 1 eeRefSheets = EmployeeSheets(i) With eeRefSheets Dim lngLr As Long = .Cells.Find(What:="*", SearchDirection:=Excel.XlSearchDirection.xlPrevious, SearchOrder:=Excel.XlSearchOrder.xlByRows).Row .Range("B6:H6").AutoFill(Destination:=.Range("B6:AH" & lngLr)) End With Next End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)