You can try this workaround for alignment of column header.
Dim W As Long
Dim SpaceWidth As Long
Dim NumOfSpaces As Long
Dim ColumnHeaderText As String
ColumnHeaderText = "Hello"
With DataGrid1
SpaceWidth = Me.TextWidth(" ")
W = .Columns(1).Width
NumOfSpaces = (W - Me.TextWidth(ColumnHeaderText)) \ SpaceWidth \ 2
.Columns(1).Caption = Space$(NumOfSpaces) & ColumnHeaderText
End With
This is what I found on the first link of
Google[
^].