Having some problems on this one, im sure its right in front of me. Can anyone help find out why this is?

Type Mismatch

Dim ColumnsInsert As Integer
Dim MyCountVar As Integer
Dim ColLetter As String
----------------------------------------------------------------
Sub Test ()

CheckColLetter

GetCellCountsColVar

ActiveSheet.Range("" & ColLetter & "1:" & ColLetter & "" & MyCountVar & "").RemoveDuplicates Columns:=1, Header:=xlNo

End Sub
----------------------------------------------------------------
Sub GetCellCountsColVar ()

'Errors>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
MyCountVar = Cells(ActiveSheet.Rows.Count, " & ColumnsInsert & ").End(xlUp).Row
'End Error>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
LastPlusOneVar = MyCountVar + 1

End Sub
----------------------------------------------------------------
Sub CheckColLetter ()

Select Case ColumnsInsert
    Case "2"
      ColLetter = "B"
    Case "3"
      ColLetter = "C"
    Case "4"
      ColLetter = "D"
    Case "5"
      ColLetter = "E"
    Case "6"
      ColLetter = "F"
    Case "7"
      ColLetter = "G"
    Case "8"
      ColLetter = "H"
End Select

End Sub