Hey!

I am using this code to select the first empty cell in column A.
    If Application.WorksheetFunction.CountA("A:A") = 0 Then
        [A1].Select
        Else
            On Error Resume Next                                                'Select first empty cell after VIP entries
            Columns(1).SpecialCells(xlCellTypeBlanks)(1, 1).Select
                If Err <> 0 Then
                    On Error GoTo 0
                    [A65536].End(xlUp)(2, 1).Select
                End If
            On Error GoTo 0
    End If
Well, now instead of column A, I would need to select the first empty cell in column B, but after changing the code to

    If Application.WorksheetFunction.CountA("B:B") = 0 Then
it still keeps on selecting the first cell in column A.
Any ideas why?

thanks
A2k