Inserting text into worksheets

[Crusader2]

I have a work bookI don't know how many worksheets in the, but I have to write in every worksheet in a workbook some text (for example "hello world&quot in cell A1. I don't know worksheets number but I have to put some text in every worksheet.

 

[john24]

this searches for a specific workbook but you can use the .Name property to get the names of all of the worksheets in your workbook

Public Function FindSheet(ByRef xlWbk As Excel.Workbook, _
ByVal SheetName As String) As Boolean

Dim i As Integer
Dim NumberOfWorksheets As Integer

NumberOfWorksheets = xlWbk.Sheets.Count
For i = 1 To NumberOfWorksheets
If (xlWbk.Sheets(i).Name = SheetName) Then
FindSheet = True
Exit Function
End If
Next i

FindSheet = False

End Function