Locate cell name using variable and looping
Hi Thomas,
Your codepart "Skjul" & i might create the problem
Try this
Sub hideSkjul()
Dim i As Integer
Dim sName As String
For i = 1 To 75
sName = "Skjul" & Trim(CStr(i))
If Sheets("spec").Range(sName).Value = 0 Then
Sheets("spec").Range(sName).EntireRow.Hidden = True
Else
Sheets("spec").Range(sName).EntireRow.Hidden = False
End If
Next
End Sub
Hoop This Helps
Wouter Magre
|