#How to merge and center in excel 2013 how to

So after the second offset, your range variable is only a single cell, which means it cannot be merged. This results in the following: Range Address: $B$2:$H$2 i:1 Set range = range.Offset(1, 0) `<- this is the line where the Offset loses the entire rowДebug.Print 'Range updated1: ' & range.Address You can troubleshoot problems like this a lot easier by adding a debug statement: 'Add month headerДebug.Print 'Range Address: ' & range.Address & vbTab & 'i:' & iД¬all AddCalendarMonthHeader(MonthName(i), range)Дebug.Print 'Range updated00: ' & range.AddressДebug.Print 'Range updated0: ' & range.Address

Woah, I'm really surprised this works at all! Range is a keyword in VBA and Excel, so it is very surprising to me you are able to use that as a variable name without problems. Public Sub AddSheetHeaders(ByVal ws As Worksheet, year As Integer) Public Sub ColWidth(ByVal ws As Worksheet) (After:=ThisWorkbook.Worksheets()).name = name Public Function DaysInMonth(date1 As Date) As IntegerДaysInMonth = CInt(DateSerial(year(date1), month(date1) + 1, 1) - DateSerial(year(date1), month(date1), 1)) Public Sub AddCalendarWeekdaysHeader(ws As Worksheet, range As range) Public Sub AddCalendarMonthHeader(month As String, range As range) 'Add days to calendar ' For j = 1 To DaysInMonth(date1)Дim isFirstWeek As Boolean: isFirstWeek = TrueДim firstWeekOffset As Integer: firstWeekOffset = Weekday(DateSerial(year, i, 1)) Public Sub AddCalendars(ByVal ws As Worksheet, year As Integer)Дim startCol As Integer, startRow As IntegerДim rowOffset As Integer, colOffset As IntegerД¬all AddCalendarMonthHeader(monthName(i), range)Д¬all AddCalendarWeekdaysHeader(ws, range)

#How to merge and center in excel 2013 how to

My only thought is the range.offset() in Main() is affecting it but I dont know why or how to fix it.ДЄrrWsNames = Split('BDaily,BSaturday', ',') The month cell should be merged, centered, and style but it is not. The issue is in the AddCalendarMonthHeader() This can be copied and pasted directly into excel module and run