Randomization Macro

[DixitCorvus]

I am trying to build a macro that does a couple different random selections. The first function would be to randomly select a name from a table on another tab; this portion is working perfectly fine. The second portion is a randomly generated Yes/No. Here's what I've got so far:

Sub NewCast()
Dim NPC_Row As Double
Dim NPC_Shapeshift As Double
Dim NPC_Shapeshift_Result As String


Randomize
NPC_Row = Int((Rnd() * (Sheets("NPCs").UsedRange.Rows.Count - 1)) + 1)
NPC_Name = Sheets("NPCs").Range("A" & NPC_Row)
Lastrow_NPC = Sheets("NPCs").Range("K1").Value

NPC_Shapeshift = Rnd()
If NPC_Shapeshift > 0.5 Then
NPC_Shapeshift_Result = "Yes"
Else
NPC_Shapeshift_Result = "No"
End If

Sheets("Cast").Range("A" & Lastrow_NPC).Value = NPC_Name
Sheets("Cast").Range("C" & Lastrow_NPC).Value = NPC_Shapeshift_Result


End Sub

Column A of the "Cast" Sheet is the Randomly selected name. Column C is the randomly selected Yes/No value.
LastRow_NPC determines the number of entries already on the "Cast" Sheet telling this macro where to enter the new entry.

Everything looks good to me, but I'm getting an "Application-defined or Object-defined Error" which seems to be associated with the last line:
Sheets("Cast").Range("C" & Lastrow_NPC).Value = NPC_Shapeshift_Result

Any ideas?

 

[cerfani]

did you try debugging it? set a breakpoint on this line that errors and make sure all those variables you are using are holding the values you anticipated

 

[DixitCorvus]

I have. Didn't really give me much, though. The Name randomization was holding values, the Yes/No randomization didn't give me any values, so I presume that's not correct. The error doesn't show up until I get to that last line though before End Sub.

 

[Fluff]

Works ok for me, does the Name get inserted in col A on the Cast sheet?

 

[DixitCorvus]

It did before I started trying to add the Yes/No randomization. Now I just get an error box that just says "400".
The issue was that the Yes/No never populated in Column "C".