To Select Cells and format them, when there are uneven number of rows and columns

Hi,

I have a file with data in both rows and columns.
There are some empty cells.
the cells contain numbers or strings.

I need to format this sheet.
Bold all the strings
Draw a table border
and centre all the contents in each cell.

I don't know how to generalise the range and make it the selection.

Welcome to the Excel Forum!

I think this is what you are looking for. Please back up your excel workbook before running this macro!

Sub EtchaSchetch()

Application.ScreenUpdating = False

Dim rngCell As Range
Dim lngLstRow As Long

lngLstRow = ActiveSheet.UsedRange.Rows.Count

For Each rngCell In Range("A1:T" & lngLstRow)
    If IsNumeric(rngCell.Value) = True And rngCell.Value <> "" Then
        rngCell.Select
            With Selection
                .HorizontalAlignment = xlCenter
                .Font.Bold = True
                
            End With
            
            With Selection
                With .Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = xlAutomatic
                End With
                With .Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = xlAutomatic
                End With
                With .Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = xlAutomatic
                End With
                With .Borders(xlEdgeRight)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = xlAutomatic
                End With
            End With
    Else
    End If
Next

Application.ScreenUpdating = True

End Sub

thank you for the code! but it is not formating the text. it only formats the number columns. I would like it to even format the text columns. how can i do that?