Sub infoTab(ByVal tR As Integer, ByVal tC As Integer)
                  With Worksheets(1).Cells(tR, tC)
                    .Font.Size = 12
                    .Font.Bold = False
                    .Value = Dekor
                    .Font.Name = "Uniform Cond 3"
                    .WrapText = False
                  End With
End Sub