Macros

Hi Christina

3 macro questions already!

Thanks very much they are very good and useful questions.
The first one I found from Google which originally counted blank rows.

The code for your other two questions were by recording.

Sub CountBlankColumns()
Dim Col As Long, ColCount As Long, Rng As Range

Set Rng = Selection
ColCount = 0

For Col = Rng.Columns.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Rng.Columns(Col).EntireColumn) = 0 Then
ColCount = ColCount + 1

End If
Next Col

MsgBox ColCount & " columns found"

End Sub


Sub CreateandSave()


Workbooks.Add
ChDir "Z:\"
ActiveWorkbook.SaveAs Filename:="Z:\Christina.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Instead of "Z:\" you can add your own file path for saving to

Hope that helps.

Regards
Doug
Best STL