Sub test() Dim rw As Long, cl As Long For rw = 3 To 8 For cl = 3 To 22 Cells(rw, cl) = "-" Next Next End Sub
Sub test() Dim rw As Long, cl As Long For rw = 3 To 8 For cl = 3 To 22 Cells(rw, cl) = "-" Next Next End Sub
Semper in excretia sumus; solum profundum variat.