Run time error 1004

[lac]

my macro is showing "run time error 1004", how do I fix it? my code is below. I highlighted the error in red.

If Range("V1") = "3" Then
Columns("a:r").Select
Selection.EntireColumn.Hidden = False
Columns("e:h").Select
Selection.EntireColumn.Hidden = True
Columns("n:q").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
ElseIf Range("V1") = "4" Then
Columns("a:r").Select
Selection.EntireColumn.Hidden = False
Columns("f:h").Select
Selection.EntireColumn.Hidden = True
Columns("o:q").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
ElseIf Range("V1") = "5" Then
Columns("a:r").Select
Selection.EntireColumn.Hidden = False
Columns("g:h").Select
Selection.EntireColumn.Hidden = True
Columns("p:q").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
ElseIf Range("V1") = "6" Then
Columns("a:r").Select
Selection.EntireColumn.Hidden = False
Columns("H").Select
Selection.EntireColumn.Hidden = True
Columns("Q").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
ElseIf Range("V1") = "7" Then
Columns("a:r").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
Else
End If
End Sub

 

[asking]

Hi Iac,

Can find nothing wrong with your code.

As you have had no reply, all though this may seem silly, sometimes just deleting the offending code line and retyping it fixes the problem.

If that does not work try this modified sub that doesn't select anything.

Sub ColControl()
If Range("V1") = "3" Then
    Columns("a:r").EntireColumn.Hidden = False
    Columns("e:h").EntireColumn.Hidden = True
    Columns("n:q").EntireColumn.Hidden = True
ElseIf Range("V1") = "4" Then
    Columns("a:r").EntireColumn.Hidden = False
    Columns("f:h").EntireColumn.Hidden = True
    Columns("o:q").EntireColumn.Hidden = True
ElseIf Range("V1") = "5" Then
    Columns("a:r").EntireColumn.Hidden = False
    Columns("g:h").EntireColumn.Hidden = True
    Columns("p:q").EntireColumn.Hidden = True
ElseIf Range("V1") = "6" Then
    Columns("a:r").EntireColumn.Hidden = False
    Columns("H").EntireColumn.Hidden = True
    Columns("Q").EntireColumn.Hidden = True
ElseIf Range("V1") = "7" Then
    Columns("a:r").EntireColumn.Hidden = False
End If
Range("A1").Activate
End Sub

Hope this is of some help

 

[lac]

thank you! that worked