OhGorgeous1
10-09-2008, 08:22 AM
I have the following code (see below) and feel there must be a way of writing this in a better more slimlined manner but have no idea where to start, is this possible?? if so HELP please.
Thanks in advance
If Range("D8").Value = 1 Then
Columns("F:L").EntireColumn.Hidden = False
Else
Columns("F:L").EntireColumn.Hidden = True
End If
If Range("D8").Value = 2 Then
Columns("M:S").EntireColumn.Hidden = False
Else
Columns("M:S").EntireColumn.Hidden = True
End If
If Range("D8").Value = 3 Then
Columns("T:Z").EntireColumn.Hidden = False
Else
Columns("T:Z").EntireColumn.Hidden = True
End If
If Range("D8").Value = 4 Then
Columns("AA:AG").EntireColumn.Hidden = False
Else
Columns("AA:AG").EntireColumn.Hidden = True
End If
If Range("D8").Value = 5 Then
Columns("AH:AN").EntireColumn.Hidden = False
Else
Columns("AH:AN").EntireColumn.Hidden = True
End If
If Range("D8").Value = 6 Then
Columns("AO:AU").EntireColumn.Hidden = False
Else
Columns("AO:AU").EntireColumn.Hidden = True
End If
If Range("D8").Value = 7 Then
Columns("AV:BB").EntireColumn.Hidden = False
Else
Columns("AV:BB").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8a" Then
Columns("BC:BI").EntireColumn.Hidden = False
Else
Columns("BC:BI").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8b" Then
Columns("BJ:BP").EntireColumn.Hidden = False
Else
Columns("BJ:BP").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8c" Then
Columns("BQ:BW").EntireColumn.Hidden = False
Else
Columns("BQ:BW").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8d" Then
Columns("BX:CD").EntireColumn.Hidden = False
Else
Columns("BX:CD").EntireColumn.Hidden = True
End If
If Range("D8").Value = 9 Then
Columns("CE:CK").EntireColumn.Hidden = False
Else
Columns("CE:CK").EntireColumn.Hidden = True
End If
Thanks in advance
If Range("D8").Value = 1 Then
Columns("F:L").EntireColumn.Hidden = False
Else
Columns("F:L").EntireColumn.Hidden = True
End If
If Range("D8").Value = 2 Then
Columns("M:S").EntireColumn.Hidden = False
Else
Columns("M:S").EntireColumn.Hidden = True
End If
If Range("D8").Value = 3 Then
Columns("T:Z").EntireColumn.Hidden = False
Else
Columns("T:Z").EntireColumn.Hidden = True
End If
If Range("D8").Value = 4 Then
Columns("AA:AG").EntireColumn.Hidden = False
Else
Columns("AA:AG").EntireColumn.Hidden = True
End If
If Range("D8").Value = 5 Then
Columns("AH:AN").EntireColumn.Hidden = False
Else
Columns("AH:AN").EntireColumn.Hidden = True
End If
If Range("D8").Value = 6 Then
Columns("AO:AU").EntireColumn.Hidden = False
Else
Columns("AO:AU").EntireColumn.Hidden = True
End If
If Range("D8").Value = 7 Then
Columns("AV:BB").EntireColumn.Hidden = False
Else
Columns("AV:BB").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8a" Then
Columns("BC:BI").EntireColumn.Hidden = False
Else
Columns("BC:BI").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8b" Then
Columns("BJ:BP").EntireColumn.Hidden = False
Else
Columns("BJ:BP").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8c" Then
Columns("BQ:BW").EntireColumn.Hidden = False
Else
Columns("BQ:BW").EntireColumn.Hidden = True
End If
If Range("D8").Value = "8d" Then
Columns("BX:CD").EntireColumn.Hidden = False
Else
Columns("BX:CD").EntireColumn.Hidden = True
End If
If Range("D8").Value = 9 Then
Columns("CE:CK").EntireColumn.Hidden = False
Else
Columns("CE:CK").EntireColumn.Hidden = True
End If