vbaで全シートのある列のスペースを消したい

vba修行中の初心者です。 シートをすべて選んだ状態である列（ここではI列）を選び、セルの中のスペースをすべて消すということをしたいのですが、 Worksheets.Columns("i:i").Select.Replace What:=" ", Replacement:="", Matchbyte:=False にすると、コンパイルエラーが出ます。 どのように書き直せばよいのでしょうか？ どうぞお助けください。 よろしくお願いいたします。