Hallo, liebe Community-Mitgleider

ich hab das folgende Problem ich will 4 Zeilen über den VBA-Programmierung Zentrieren lassen, aber irgendwie bekomm ich ein Debugger Fehler könntet ihr mir bitte weiterhelfen. Mein Code steht unten.

Code:

                If x.RowHeight > 0 Then
                    'srtLid = Cells(iRow).Value
                    strCategoryNo = Cells(iRow, intCol_CategoryNo).Value
                    strCategory = Cells(iRow, intCol_Category).Value
                    strValue = Cells(iRow, iCol).Value
                    strNdlClass = Cells(intRow_Classification, iCol).Value
'                        With Selection
'                            .HorizontalAlignment = xlCenter
'                            .VerticalAlignment = xlBottom
'                            .WrapText = False
'                            .Orientation = 0
'                            .AddIndent = False
'                            .ShrinkToFit = False
'                            .MergeCells = False
'                        End With

Hab es so probiert, aber funktioniert nicht.

Danke vorab für eure Hilfe.