Sub Za¹edìní_øádku()
With Range("A12:W12").Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End Sub


--JP

On Mar 14, 4:24*am, Tomáš Vognar <vognar(zavinac)esys.cz wrote:
The best would be region defined by intersection of the CurrentRegion and
active line. I'm sorry, I'm trying this, but I get errors or wrong results..
I do not quite understand the syntax of the VBA, for the meantime.

T.Vognar