Spaltenbreite

ich habe folgende Formel in meiner Arbeitsmappe engebunden aber leider kann man jetzt nicht die Spaltenbreite, Zeilenhöhe und Schriftgröße einstellen. Geht das vielleicht doch irgendwie?
Danke im voraus.

Dim mg As Range
For Each mg In Target.Cells
If mg.HasFormula Then
ActiveSheet.Protect ("xxxxx")
Exit Sub
Else
ActiveSheet.Unprotect ("xxxxx")
End If
Next mg