Dim wsName As String
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open(curPath & "\Template\template.xlsx", , False)
Set xlWS = xlWB.Sheets(1)
xlWS.Activate
With xlWS.Cells(row, col)
.Font.Name = "Cambria"
.Font.Bold = True
.Font.Size = 14
.Value = "Total Compensation Statement"
.VerticalAlignment = xlVAlignTop
.HorizontalAlignment = xlCenterAcrossSelection
End With
Friday, June 15, 2018
Format cell text in Excel using VBA
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment