Hiding Columns

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to know how to do this for rows instead of columns.
I have the same issue but with rows instead.


Public Sub MyHide()
Dim rngCell As Range
Dim lngNumColumns As Long

Application.ScreenUpdating = False

lngNumColumns = ActiveSheet.UsedRange.Columns.Count

For Each rngCell In Range("A3").Resize(1, lngNumColumns)
With rngCell
.EntireColumn.Hidden = (.Value = 1)
End With
Next rngCell

Application.ScreenUpdating = True
End Sub
 
hi.
read through your code. where is says column, change that to row. if it says
columns, change that to rows. the command to hide and unhide rows and columns
is the same except for row or column.

regards
FSt1
 
Thank you so much. I did want to touch anything and mess up what I have
already did.

Thanx,
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Identify each cell that has dependents 2
hide rows of blank cells 2
Hide columns and rows then separate the spreadsheet into different files 1
Loop thru xx No. of sheets until the four strValue combo's are found 6
Pictures in comments Sub MyPix modification ?? 1
Modify The Code For Importing Text File into an Excel File 2
Triming trailing spaces before using Match on columns of numbers withleading zeroes formatted as tex 1
Convert Macro to custom function 1

Back
Top