Limit entirerow columns with VBA code

Consider the following:

If a <> b then
Range("somerange").EntireRow.Font.Strikethrough = True
end if

It is a known fact that Excel 2007 has up to 16384 rows per sheet and that one does not want to format cells that are completely unused. Is there a way, using VBA code, to limit Excel to only use, say, 20 columns?

Maybe:

Sub ChrisPattersonz()
If a <> b Then
Range("somerange").Resize(, 20).Font.Strikethrough = True
End If
End Sub

Can you provide a sheet with some samples of your ranges? Are they named ranges?

Some of the ranges are named, yes. Some however are offsets of ranges, for example:

Range("whatever").offset(-1,0)

When this is the case it's easiest to format the whole line as strikethrough:

Range("whatever").offset(-1,0).entirerow.font.strikethrough = true

In some instances I use the merged area:

Range("whatever").mergearea.font.strikethrough = true

I know in this example you don't need to add mergearea, because it looks at the range itself already. However, when used in a function with differing input range styles this can be handy.

I've attached a file to simply display what I mean.
Limit strikethrough.xlsx

This is a piece of code where I use the fact that it is a merged area or not in a particular way:

If OutputRange.MergeCells = True Then
    If REV = 0 Then
        If InChkBox.Offset(0, REV) = False Then
            ...
        Else
            ...
        End If
    ElseIf REV > 0 Then
        If InChkBox.Offset(0, REV) <> InChkBox.Offset(0, (REV - 1)) Then
            ...
        Else
            ...
        End If
    End If
Else
    Dim TempRange As Range
    Set TempRange = Range(Cells(OutputRange.Row, 3), Cells((OutputRange.rows.Count - 1 + OutputRange.Row), 21))
    
    If REV = 0 Then
        If InChkBox.Offset(0, REV) = False Then
            ...
        Else
            ...
        End If
    ElseIf REV > 0 Then
        If InChkBox.Offset(0, REV) <> InChkBox.Offset(0, (REV - 1)) Then
            If InChkBox.Offset(0, REV).Value = True Then
                ...
            Else
                ...
            End If
        Else
            If InChkBox.Offset(0, REV).Value = False Then
                ...
            Else
                ...
            End If
        End If
    Else
        'Do nothing
    End If
End If
        
End Function

Hi ChrisPatterson,
maybe you just need to remove the entirerow
try to replace it

Range("whatever").offset(-1,0).entirerow.font.strikethrough = true

with this

Range("whatever").offset(-1,0).font.strikethrough = true

Thanks for your suggestion, Nilem.

Unfortunately that also won't work. The reason why I want to do this is the following:

I have userforms with which the user can select and deselect certain values/lines. For revision handling purposes these lines are either hidden or given strikethrough. If a sub-paragraph of options is deselected I also need to handle the sub-paragraph title. The titles themselves aren't ranges (maybe I should change this) and that's why I use the offset of -1 rows.

So to repeat what I hope to achieve... rather than handling each row individually with a number of columns, deny Excel to change anything beyond, say, column 30. Thereby acting as if there only are 30 columns and meaning the entirerow.font.strikethrough doesn't add too much unnecessary formatting and making the file larger than necessary.