Ironman
Wellknown Member
 Joined
 Jan 31, 2004
 Messages
 948
 Office Version

 365
 Platform

 Windows
Hi
I have got so far with the below code, which fills Column A in the first empty row
I'm trying to fill columns A:F and I:J in the first empty row and I'm stuck!
Help would be much appreciated.
Many thanks!
I have got so far with the below code, which fills Column A in the first empty row
VBA Code:
Sub FillEndRowBlue()
If ActiveSheet.Name = "Training Log" Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
With Selection
.Interior.Color = RGB(197, 217, 241)
End With
Else
MsgBox "Cell fill does not work in this sheet", vbInformation, "Information"
End If
End Sub
I'm trying to fill columns A:F and I:J in the first empty row and I'm stuck!
Help would be much appreciated.
Many thanks!