Simplfy if statement

[Jim]

How would one simplify the following:

If Target.Count > 1 Then GoTo errHandler

If Target.Column = 7 Then
Target.Columns.ColumnWidth = 15
Else
Columns(7).ColumnWidth = 8

If Target.Column = 8 Then
Target.Columns.ColumnWidth = 25
Else
Columns(8).ColumnWidth = 15
End If

If Target.Column = 3 Then
Target.Columns.ColumnWidth = 10
Else
Columns(3).ColumnWidth = 8
End If

If Target.Column = 4 Then
Target.Columns.ColumnWidth = 10
Else
Columns(4).ColumnWidth = 8
End If

End If


Cheers

 

[RichardSchollar]

Hi Jim

Perhaps:

If Target.Count > 1 Then GoTo errHandler
Range("C1,D1,G1").ColumnWidth = 8: Range("h1").ColumnWidth = 15
Select Case Target.Column
Case 3, 4
Columns(Target.Column).ColumnWidth = 10
Case 7
Columns(Target.Column).ColumnWidth = 15
Case 8
Columns(Target.Column).ColumnWidth = 25
Case Else
End Select

Richard

 

[Jim]

Thanks Reichard,

It seems so simple but constantly reminds me of how much I have to learn -
or adopt from the truly learned.

Cheers
Jim