Dim wsf As WorksheetFunction
Range("C3:C8,E3:E8,G3:G8,...").Value = "-"
Artik