excel vba - Inserting sheetname into a range of cells

[jsalazar82]

trying to fill a range of blank cells with the name of the sheet that they are in. not sure why Range("ActiveSheet.Name") does not work? any help appreciated!

Dim rng As Range
Set rng = Range("B1:B100")
For Each cell In rng
    If cell.Value <> "" Then
        cell.Offset(0, -1).Value = Range("ActiveSheet.Name")
    End If Next

 

[jsalazar82]

this fixed it:

[COLOR=#303336][FONT=inherit]cell[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Offset[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#303336][FONT=inherit]-[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]1[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Value [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] ActiveSheet[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Name[/FONT][/COLOR]