Vba first blank column

[winuz]

Hi, I'm trying to create an import macro for my data aquisitions. The code I'm using is:

Range("A1:PP1").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, Lookat:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
SaveColNdx = ActiveCell.Column

I would like to import around five data sets into one sheet and this code works great once I've imported the data once.

The trouble I have is that this code doesn't work when the sheet is completly empty. How do I fix this?

 

[Roger Govier]

Hi

Replace your code with just the following

SaveColNdx = Cells(1, Columns.Count).End(xlToLeft).Column
If SaveColNdx > 1 Then SaveColNdx = SaveColNdx + 1

 

[winuz]

Thanks. Works like a charm :D