How can you check if the cell next to you is occupied?

Hi there,

Im really having problems with my project

Im trying to use VBA to check if te cell next to active cell is filled with letters/numbers etc. and after this to copy a certain part of it.

:
Check for letters
Copy
Loop

end if cell left to active cell is empty


Sub Removeedit()

'
' removeedit Macro
'

'

Dim r As Integer
r = 5 'starting row?

Do


If Cells(r, 1) = "" Then
Exit Do
End If

If Len(Cells(r, 1)) > 4 Then

ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[-1]),0,IFERROR(LEFT(RC[-1],SEARCH(""."",RC[-1])-1),RC[-1]))"

End If
r = r + 1
Loop


End Sub


could anyone please help me?

Thank you!

Hi!

well it i press "run" it only works on te cell selected and doesn't continue to the next row.

thanks