Below is the code I am using. I am pretty sure I am not referencing something consistently or fully.

All I want to do is find the total width per worksheet (in inches, pixels, whatever) of the visible columns on each the worksheets in a single workbook. The sheets may have individual columns of various widths, but I want to be able to sync up the total overall widths for printing alignment. I just want to see with a msgbox what the total width of the sheet is, then move on to the next sheet. Tks in advance.

Sub total_width()
Dim totalwidth As Double

Worksheets("Sheet1").Select
For n = 2 To Worksheets.Count
Worksheets(n).Activate
For Each col In ActiveSheet.Columns("A:O")
If Columns.Hidden = False Then
If Columns.Cells(col, 1).Value <> "" Then
totalwidth = totalwidth + col.ColumnWidth
End If
End If
Next col
z = MsgBox(totalwidth, , "Total Width of Columns")
totalwidth = 0
Next n
End Sub