VBA write to cells to all tabs

Hello all,

currently I am using this code:

Sub sbWriteIntoCellData()

Cells(1, 4)="Hello World"
end sub

I would like to find a similar code but that applieas to all tabs that I have in my workbook. Also, instead of writing to single cell (ex.: Cells(1,4), how can i write the data to first 1000 cells in one column (ex: first 1000 cells in colunn K).


Many thanks