I am trying to use a VBA code that generates a montly calender. The problem is that in the code only generates 1 entry cell for each day and I want 5 rows. The code for the entry cells looks as below.. Any suggestions on what I can do to the code in order to get more entry cells?
Create Entry cells, format them centered, wrap text, and border
' around days.
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
' Unlock these cells to be able to enter text later after
' sheet is protected.
.Locked = False
End With
Bookmarks