Can someone please tell me what I am doing wrong with this function
Code:
Function FindColLtr(Tsheet, Tnum, Tltr, Tstr)
Tnum = Worksheets(Tsheet).Rows(1).Find(Tstr, SearchOrder:=xlByColumns, LookIn:=xlValues, SearchDirection:=xlNext).Column
If Tnum > 26 Then
Tltr = Chr(Int((Tnum - 1) / 26) + 64) & Chr(((Tnum - 1) Mod 26) + 65)
Else
Tltr = Chr(Tnum + 64)
End If
End Function
Sub CheckBox7_Click()
Var1 = "Carrycost"
Var2 = 0
VarStart = "A"
Var4 = "<Start>"
FindColLtr Var1, Var2, VarStart, Var4
Var2 = 0
VarEnd = "A"
Var4 = "<End>"
FindColLtr Var1, Var2, VarEnd, Var4
Tmpstr = VarStart & ":" & VarEnd
Worksheets(Var1).Range(Tmpstr).EntireColumn.Hidden = True
Tmpstr = Q4
Worksheets(Var1).Range(Tmpstr).EntireColumn.Hidden = False
End Sub