Dim c As Object
' grams
For Each c In ActiveSheet.Range("Y9:Y11,Y13:Y18")
c.Value = "0g"
Next
' plain zero
For Each c In ActiveSheet.Range("Y2,Y6,Z9:Z23")
c.Value = "0"
Next
' milligrams
For Each c In ActiveSheet.Range("Y12,Y20:Y23")
c.Value = "0mg"
Next
End Sub
When I run the script I get an error message as shown in the image. I don't know programming. This is the script AI created for me.
TIA
- Error message.png (12.88 KiB) Viewed 362 times