How do I delete part of the text in a cell?

Hello All -

If I have a column with a long list of file names that end with .tif how do I delete the .tif part with a macro.

Right now, I have the ability to add .tif

Dim cell As Range

For Each cell In Selection
If cell.Value <> "" Then
cell.Value = cell.Value & ".tif"
End If
Next cell
End Sub

However, I am having trouble deleting it.

Example:

Column A

filename.tif
another.tif
here.tif
there.tif

I need all the .tif deleted.... I know that I can do a text to column and delimited by ".", however, I would rather have a macro to do the work instead.

Hope you can help. Thanks