Buscar si hay más valores en la misma fila

Hola

Estoy intentando buscar si hay más valores en la misma fila (hacia la
derecha) de una hoja de cálculo y las siguientes, pero se me está
complicando mucho el código y soy novato en esto.

Estaba haciendo algo como esto:

For hoja = 1 To 5 Step 1
Columna = 4
For Contador = 1 To 40 Step 1
' Comprobar si hay más valores en la base de datos aunque haya espacios
por medio
nohaymas = 0
Dim rangoitems As Range

Set r1 = Workbooks("BdD.xls").Worksheets("hoja " &
hoja).Range(Cells(nfila, Columna), Cells(nfila, 256))
Set r2 = Workbooks("BdD.xls").Worksheets("hoja " & hoja +
1).Range(Cells(nfila, 4), Cells(nfila, 256))
Set r3 = Workbooks("BdD.xls").Worksheets("hoja " & hoja +
2).Range(Cells(nfila, 4), Cells(nfila, 256))
Set r4 = Workbooks("BdD.xls").Worksheets("hoja " & hoja +
3).Range(Cells(nfila, 4), Cells(nfila, 256))
Set r5 = Workbooks("BdD.xls").Worksheets("hoja " & hoja +
4).Range(Cells(nfila, 4), Cells(nfila, 256))
Set rangoitems = Union(r1, r2, r3, r4, r5)

For Each v In rangoitems
If v.Value <> "" Then
nohaymas = nohaymas + 1
End If
Next
If nohaymas=0 Then
End
End If

' Sigue el código para el caso de que nohaymas sea mayor que 0


La idea es que si la variable nohaymas se queda en 0 estará conseguido,
pero, aparte de que no funciona, se me plantea una duda, supongo que si
estoy en la hoja 3 al no existir "hoja 6" ni "hoja 7" el rango devolverá
un error ¿es así?

Muchas gracias

Javi