Skjul række 2

Noget i denne stil må kunen gøre det:

Sub hide()
Const FirstCol As String = "K"
Const LastCol As String = "O"
Dim rrow As Long

For Each s In ActiveWorkbook.Sheets
resten af baks kode....
Next s

End Sub

knap nok, jkrons. Det er derfor jeg ikke har svaret på det sidste spm.
det gælder ikke alle ark, men kun dem har har selected.
Håber du har en god løsning, for jeg kan ikke lige komme i tanke om det.

bak-> Det er fordi jeg ikke kan læse indenad. Den eneste måde jeg kan komme i tanke om, må være noget med at gemme de selctede arknavne i et array, og så køre en for..Next løkke på array'et, men præcis hvordan, det skal gøres er jeg for træt til at gennemskue lige nu :-)

jkrons-> enig, men det kniber lidt med at gennemskue at få de selected ark ind i det array. Det går fint nok når man optager det, men at finde en måde at se på et ark om det er selected er værre.

I know :-)  Det er derfor jeg ikke orker at se mere på det nu :-)

Og så alligevel :-)

Sub hide()
Const FirstCol As String = "K"
Const LastCol As String = "O"
Dim rrow As Long

Dim shts As Sheets
  Dim sh As Worksheet
  Set shts = ActiveWindow.SelectedSheets
  ActiveSheet.Select
  For Each sh In shts
'      baks kode her ......
    sh.Activate
  Next
  shts.Select


End Sub


As always, Google is your friend :-)

godt klaret, jkrons :-)

Godt arbejde Jkrons - Det virker perfekt. Det eneste minus er at makroen ikke kører på det sidste markeret ark. Har du markeret 6 ark - kører makroen kun på de føste 5 ark. Men det er en detailje som jeg nemt kan leve med.
Tak for hjælpen

SDH

Velbekomme. Prøv evt at flytte bak's kode ned efter sh.activate. Jeg er ikke helt sikker, da jeg ikke selv har det kørende, men det kunne være her problemet ligger.