BruceWayne February 2016
As silly as it sounds, you need to add white space in your range (and also add an
rownum3 = rownum2 + 2
rownum4 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
set r3 = .range("K" & rownum3 & ":K" & rownum4)
For some reason, when using variables, even when you separate them with the
&, VBA doesn't like variables next to quotes. Just add a space in between your
& connectors and it should work okay.
One way to work around this non-auto-formatting issue is to use
Set r3 =.Range(.Cells(rownum3,11),.cells(rownum4,11))
Cells([row #],[col. #]), so wrapping that in a
Range() is another way to do it (any my personal preferred way).