Scrollarea
01.01.2021 10:56:26
leito
Was habe ich da falsch programmiert?
Public Sub SetScrollarea()
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
objWorksheet.ScrollArea = "A1:H38"
objWorksheet.Columns("H:XFD").Hidden = True
objWorksheet.Rows("39:1048576").Hidden = True
Next
End Sub
Mfg
leito