変数が整数として宣言された場所でランタイムエラー6 'オーバーフロー'

Question

変数が整数として宣言されたランタイムエラー6 'オーバーフロー'があります。

Sub yahoo() 
    Dim n As Integer 
    Range("A:a").AutoFilter Field:=1, Criteria1:="*yahoo*" 
    n = Range("a:a").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count 
    Range("c1") = n 
End Sub 

Answer 1

ロングに（でよりについてのVBAデータ型：https://msdn.microsoft.com/en-us/library/47zceaw7.aspx）の整数を交換し

Sub yahoo() 
    Dim n As Long 
    Range("A:a").AutoFilter Field:=1, Criteria1:="*yahoo*" 
    n = Range("a:a").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count 
    Range("c1") = n 
End Sub