.DWG durch .dwg ersetzen aber nur in Spalte B

ich möchte in Spalte B alle .DWG durch .dwg ersetzen.

Habe mit selbst aufgezeichneten Makro versucht aber dabei werden auch andere Spalten mitberücksichtigt.

Sub DWG_to_dwg()
'
' DWG_to_dwg Makro
' Makro am 27.07.2002 von Tony aufgezeichnet

Cells.Replace What:=".DWG", Replacement:=".dwg", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True
ActiveWindow.SmallScroll ToRight:=0
Range("B2").Select
End Sub

Bitte um Hilfe

Vielen Dank vorab

Gruß
Tony