Sub M_snb() Sheets(1).Columns.Hidden = False ThisWorkbook.Windows(1).FreezePanes = False Sheets(1).Range("A4:G4") = Split(Replace(Space(7), " ", "222|"), "|") Sheets(1).Columns.AutoFit End Sub