Run time error: '1004' Unable to get the Autofit property of the Range class

[Pookiemeister]

Range("F3:K1").AutoFit = UCase(Format(Date, "mmmm ") & "'s" & " " & "WO report")

I would like to autofit the contents of this merged cells dynamically. Is this possible? Right now, if the contents go outside of the merged cell, I have to lower the height of the letters to make it fit. Thank you for any advice given.

 

[Alex Blakenburg]

You can't do it like that.
Note: Your range looks odd, most people would do F1:K3 but it will work the way you have it.

This should work.

Range("F3:K1") = UCase(Format(Date, "mmmm ") & "'s" & " " & "WO report")
Range("F3:K1").Columns.AutoFit