Usage example

Sub TestffC()

    Dim NextCol As Long
    NextCol = ffC(shData)

    Debug.Print NextCol

End Sub

Function Code

'*************************************
'Return first free column in sheet sh
'*************************************
Function ffC(sh As Worksheet) As Long
    ffC = sh.Range("A1").CurrentRegion.Columns.Count + 1
End Function

The function ffC is part of My Common Library: My Common Library (1051 downloads )

Similar Posts

Excel VBA: CopyUsedRangeValues – fastest way to copy values from sheet to sheet.

Byketil

RunCopyUsedRangeValues will copy the values from the sheet with codename shSource to shDestination. It is extremely fast, and very useful when I don’t need formatting or formulas. You can download the Excel workbook at the bottom of the article Usage example The source and destination sheets can be in the same or in separate workbooks…

Excel VBA – Create and update Outlook Calendar Items

Byketil

With the Sub UpdateAppointment you can create and update Outlook meetings or appointments. All items must have a unique index to filter on. The sub filters on BillingInformation, a field I rarely use for other purposes. Appointments The appointments are created in your personal calendar. If you want to put stuff in others calendar, you…

Excel VBA: Create a series of workdays only

Byketil

The Nextworkday(date, optional holidays) function returns the date for the next workday. The first parameter is the starting date you set manually.The second parameter is optional and points to a range with dates you want to exclude from the workdays list, like easter or your vacation.If you omit the second parameter, only Saturdays and Sundays…