If you want to know the column names which are hidden in a worksheet.
Here is the code-
Dim a As Range, b As Range, cell As Range
Dim bla As Boolean
Dim mscl As String
' change range as per ur requirement
' USE ONLY 1 ROW LIKE A1:Z1 OR A2 :Z2 ... NOT LIKE (A1:Z35)
Set b = Range("a1:z1").SpecialCells(xlCellTypeVisible)
For Each cell In Range("a1:z1")
bla = False
For Each a In b
If Split(cell.Address, "$")(1) = Split(a.Address, "$")(1) Then
bla = True
If bla = False Then
msgcl = Split(cell.Address, "$")(1)
MsgBox "Column Name -------> " & msgcl & " is Hidden"
Saturday, September 24, 2011
Find Hidden Column Names in a Sheet
Subscribe to: Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
Post a Comment