Ironman
Well-known Member
- Joined
- Jan 31, 2004
- Messages
- 1,069
- 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!