VBA: Delete Last 15 Characters in a String in Columns If Cell is not empty

Hello,

I need to write a macro, whereby it selects a cell in column (example starts in Column F and goes down the various rows in column F).
If the cell has text in it, delete the last 15 characters. If the cell is blank move onto the next cell.

Here is the code so far:


Dim f as Range
For Each f In Range ("F2", Range("F" & Rows.Count).End(xlUp))
If ' cell is empty go to next cell'
ElseIf 'cell is not empty' Then
f.Value=Left(f.Value, Len(f.value) -15)
End If
Next i
End Sub

The part of code I am missing is If the cell is empty, go to the next cell in the range and if cell is not empty Then delete the last 15 characters.

Thanks!

Code so that it is easier to read

Please Login or Register  to view this content.